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1.0  INTRODUCTION 


This  report  is  concerned  with  the  interior  ballistic  performance 
of  a particular  type  of  gun  propelling  charge  which  is  attached  to 
the  base  of  the  projectile  and  which  burns  in  successive  planar  layers, 
combustion  beginning  at  the  rear  face  of  the  charge  and  progressing 
towards  the  projectile  base.  A propelling  charge  of  this  type  is  re- 
ferred to  as  an  end-burning  traveling  charge  and  is  of  current  Interest 
as  a potential  solution  in  applications  requiring  very  high  muzzle 
velocities — of  the  order  of  3 km/sec. 

In  order  to  permit  a theoretical  evaluation  of  the  performance  to 
be  expected  of  such  a charge,  we  have  developed  a model  of.  the  one- 
dimensional continuum  dynamics  of  the  solid  propellant  and  its  products 
of  combustion,  the  reaction  zone  being  assumed  sufficiently  thin  that 
it  may  be  represented  as  an  internal  boundary  condition.  The  purpose 
of  the  present  report  is  to  provide  documentation  of  the  model,  inclu- 
ding the  mathematical  formulation  of  the  equations,  the  method  of  solu- 
tion, and  the  structure  and  use  of  the  computer  program  into  which  the 
model  has  been  encoded. 

Subsequent  subsections  of  this  Introduction  enlarge  on  the  concept 
of  the  traveling  charge,  define  the  scope  of  the  present  effort,  and 
summarize  the  modeling  approach. 

1.1  Background 

Increasing  the  muzzle  velocity  offers  two  advantages:  the  time  of 
flight  of  the  projectile  is  reduced,  increasing  the  likelihood  of  de- 
feating a highly  mobile  target;  and  the  terminal  velocity  is  increased, 
at  moderate  range,  increasing  the  likelihood  of  penetration  of  heavy 
armor.  Present  conventional  weapons  yield  muzzle  velocities  of  the 
order  of  1.0-1. 5 km/sec.  Significant  increases  in  effectiveness 
against  the  most  mobile  or  most  heavily  armored  targets  would  accrue  if 
muzzle  velocities  as  high  as  3.0  km/sec  could  be  obtained. 

The  relevance  of  the  traveling  charge  concept  to  the  design  of 
weapons  yielding  such  high  velocities  has  been  discussed  in  some  detail 
in  a recent  review  by  May  et  al^.  In  the  present  report  we  confine  our 
discussion  to  certain  conceptual  aspects  of  propelling  charge  perfor- 
mance in  order  to  identify  the  theoretical  factors  which  have  motivated 
past  and  present  interest  in  the  traveling  charge  and  to  note  certain 
questions  which  may  be  asked  about  the  traveling  charge  concept;  these 
questions  motivate  the  present  work. 

Figure  1.1  Illustrates,  in  a schematic  form,  the  nature  of  the 
flows  associated  with  a conventional  granular  propelling  charge  and  an 


1 

May,  I.  W.,  Baran,  A.  F.,  Baer,  P.  G.  and  Gough,  P.  S. 

"The  Traveling  Charge  Effect" 

Proceedings  of  the  1 5th  JANNAF  Combustion  Meeting  2978 
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Heterogeneous,  reacting 

mixture  of  granular  propellant  Single  Phase 


(a)  Conventional  granular  propelling  charge 


Fully  reacted  Thin  reaction  Unreacted 

gaa  Layer  Solid  Propellant 


(b)  End-burning  traveling  charge 


Figure  1.1  Schematic  illustration  of  flows  associated 
with  conventional  granular  and  end-burning 
traveling  charges 
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end-burning  traveling  charge.  In  neither  case  do  we  discuss  the  de- 
tails of  the  ignition  process;  details  pertaining  to  the  conventional 
charge  may  be  found  in  the  recent  AIAA  Progress  Series  volume  edited 
by  Krier  and  Summer field^. 


Except  for  a relatively  small  region  of  single  phase  flow  adjacent 
to  the  base  of  the  projectile,  the  granular  propellant  tends  to  be  found 
throughout  the  tube  at  all  times  prior  to  burnout.  Therefore  the  flow 
is  that  of  a heterogeneous  reacting  mixture  in  which  the  spacewise  re- 
lease of  chemical  energy  is  more  or  less  uniform.  The  tendency  of  the 
mixture  to  become  well  stirred  is  due  to  the  action  of  interphase  drag. 
Conversely  the  presence  of  a region  of  single  phase  flow  adjacent  to 
the  projectile  base  is  due  to  the  vanishing  of  the  slip  velocity  at  the 
base.  The  departure  of  the  mixture  from  true  well-stirredness  can  be 
pronounced  in  some  cases,  especially  during  ignition,  and  the  ballistic 
consequences  may  be  important^.  However,  by  comparison  with  the  end- 
burning traveling  charge,  in  which  the  propellant  and  its  products  of 
combustion  are  separated  by  a thin  layer  in  which  the  heat  release  oc- 
curs, the  granular  propelling  charge  looks  very  well-stirred  indeed. 


Taking  the  two-phase  mixture  to  be  well-stirred  and  having  more  or 
less  uniform  density  leads  to  the  classical  one-dimensional  solution  of 
Lagrange^  in  which  the  velocity  profile  is  linear  and  the  pressure  profile 
is  parabolic.  In  particular,  one  may  deduce  that  at  any  instant  of  time 
the  base  pressure  P^^^se  breech  pressure  Pbj-eech  related  ac- 

cording to  the  formula  P^ase  “ Pbreech^^^  fv'/2)  where  W is  the  charge- 
to-proj ectile  mass  ratio.  Also,  one  may  show  that  the  ratio  of  the  ki- 
netic energy  of  the  propellant  mixture  to  that  of  the  projectile  is 
(W/3)  : 1. 


These  elementary  classical  results  define  the  perspective  from 
which  the  concept  of  the  traveling  charge  appears  to  offer  certain  bal- 
listic benefits  as  the  charge-to-proj ectile  mass  ratio  is  increased. 

The  relationship  between  P^reech  Phase  describes  the  degree  to  which 
the  pressure  at  the  projectile  base  is  reduced  by  the  requirement  that 
a gradient  exist  to  accelerate  the  mixture.  In  conventional  ammunition, 
with  muzzle  velocities  of  the  order  of  1 km/sec,  W is  approximately  0.50 
so  that  Pt,3se  ~ Pfereech*  propulsive  capacity  is  clearly 

due  to  Pfcase  while  either  the  weapon  weight  is  related  to  Pbreech  or, 
conversely,  Pbreech  limited  by  the  tube  strength.  The  discrepancy 
of  20% between  propulsive  pressure  and  the  structural  pressure  repre- 
sents a loss  of  efficiency  in  some  sense.  If  we  now  consider  the  charge- 
to-proj  ectile  mass  ratio  necessary  to  achieve  a muzzle  velocity  of  the 
order  of  3 km/sec  with  a conventional  granular  charge  we  find  that  W is  of 
the  order  of  8 so  that  Phase  ~ 0.2  Pbreech'  Evidently  we  have  reached  the 
regime  of  diminishing  returns;  much  of  the  propulsive  potential  of  the  pro- 
pellant is  lost  to  self-work.  A similar  conclusion  follows  from  an  exami- 
nation of  the  ratio  of  kinetic  energy  of  the  charge  to  that  of  the  projectile 
which  takes  the  values  0.167  and  2.67  for  the  two  cases  we  have  considered. 


2 

Kr-tev,  E.  and  Svrmevfield^  M.,  "Interior  Baltistios  of  Guns" 

Progress  in  Astronautigs  and  Aeronautics,  Vol.  66, 

American  Institute  of  Aeronautics  and  Astronautics  1979 

Corner,  J.  "Theory  of  the  Interior  Battistias  of  Guns" 

Wiley,  New  York,  1950 


11 


Now  let  us  consider  the  end-burning  traveling  charge  configuration 
also  illustrated  in  figure  1.1.  The  concept  formulated  by  Langweiler^ 
has  the  following  novel  aspect.  The  rate  of  burning  of  the  propellant 
is  to  be  controlled  in  such  a fashion  that  the  reacted  gas  comes  to  rest 
with  respect  to  the  frame  of  reference  of  the  gun.  Evidently,  the  burn 
rate  is  required  initially  to  be  zero  and  to  increase  as  the  projectile 
accelerates.  At  any  Instant,  however,  the  kinetic  energy  of  the  gas  is 
zero  and,  in  particular,  as  burnout  is  approached,  all  the  propellant  is 
at  rest,  the  kinetic  energy  being  contained  only  in  the  projectile.  Al- 
ternatively, as  the  gas  column  is  always  at  rest,  suffering  neither  trans- 
lation nor  dilation,  its  pressure  remains  constant  at  the  initial  value 
and  is,  moreover,  uniform  with  respect  to  its  length.  The  possibility 
that  these  observations  can  be  translated  into  improved  ballistic  ef- 
ficiency has  motivated  both  past  and  present  interest  in  the  traveling 
charge. 

Certain  questions  come  to  mind  as  regards  this  possibility.  We 
first  note  those  of  previous  investigators  and  then  add  some  obser- 
vations of  our  own. 

The  first  question  is  whether  the  burn  rates  required  by  the 
Langweiler  concept  can  actually  be  realized.  It  was  observed  by  Vinti^ 
that  the  regression  rate  would  be  required  to  be  of  the  same  order  of 
magnitude  as  the  projectile  velocity,  namely  one  or  more  km/sec.  This 
requirement  may  be  contrasted  with  the  observed  rates  of  burning  of 
conventional  propellants  which  are  typically  measured  in  cm/sec  at  the 
largest  pressures  experienced  in  a gun.  The  same  observation  was  made 
by  Lee  and  Laidler^  who  also  commented  on  the  extraordinary  mechanical 
properties  that  would  be  required  to  transmit  the  propellant  thrust  to 
the  base  of  the  projectile.  Apart  from  the  technological  difficulties 
of  high  strength  and  high  burning  rate,  Lee  and  Laidler  did  not  dis- 
cern any  fundamental  obstacles  to  the  implementation  of  the  traveling 
charge  concept. 

Vlnti  noted  that  the  pressure  on  the  unreacted  side  of  the  gas/ 
propellant  interface  would  exceed  that  of  the  reactants  and  that  the 
excess  would  be  proportional,  in  some  fashion,  to  the  regression  rate. 

The  excess  is,  of  course,  the  contribution  of  momentum  flux  to  the 
total  propulsive  thrust.  Accordingly,  the  Langweiler  concept  does  not 


4 

Langweiler y H.  "A  Proposal  for  Increasing  the  Performance  of  Weapons 
by  the  Correct  Burning  of  Propellant" 

British  Intelligence  Objective  Sub-Cormittee^  Group  2, 

Ft.  Halstead  Exploiting  Center,  Report  1247  undated 

^Vinti,  J.  P.  "Theory  of  the  Rapid  Burning  of  Propellants" 

Ballistic  Research  Laboratories  Report  No.  841  1952 

Lee,  L.  and  Laidler,  K.  J.  "The  Interior  Ballistics  of  the  Impulse 
Propulsion  Gun"  Nord  10260  Contract  Report  cu/f/51.2,  August  1951 
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operate  on  a constant  pressure  cycle.  The  pressure  at  the  base  of  the 
propellant  increases  with  travel  and  it  is  this  pressure,  moreover, 
which  the  tube  must  support.  In  Vinti's  opinion,  the  resulting  com- 
bination of  maximum  pressure  and  muzzle  velocity  would  not  differ 
appreciably  from  that  obtained  using  a conventional  charge. 

A more  serious  objection  to  the  traveling  charge  concept  of 
Langweiler  was  also  expressed  by  Vinti.  He  observed  that  as  the  pro- 
jectile velocity  increased  to  a value  exceeding  the  speed  of  sound  in 
the  reactants,  the  law  of  burning  would  be  required  to  yield  super- 
sonic reactants,  as  perceived  by  an  observer  moving  with  the  regressing 
surface.  From  the  theory  of  the  steady  deflagration  of  a gas  it  has 
been  shown,  for  all  models  of  flame  structure  which  have  been  inves- 
tigated^* , that  such  a process  cannot  occur.  It  was  concluded 

by  Vinti,  therefore,  that  the  Langweiler  concept  would  be  inherently 
incapable  of  realization  once  the  velocity  of  the  projectile  exceeded 
approximately  1.0-1. 5 km/sec,  which  is  the  velocity  of  sound  in  present 
day  propellant  fonnulations. 

We  now  add  to  these  earlier  caveats  some  considerations  of  our  own. 
First  we  observe  that  the  traveling  charge  is  represented  as  self- 
supporting.  It  is  not  difficult  to  show  that  alternative  designs  in 
which  the  propellant  is  supported  by  some  structural  member  lead  to 
rather  unattractive  payload  capacities,  most  of  the  projectile  weight 
being  concentrated  in  the  propellant  support  system.  If  the  propellant 
is  unsupported,  and  required  to  transmit  compressive  stresses  of  the 
order  of  500  MPa,  we  may  expect  its  mechanical  response  to  enter  the 
hydrodynamic  regime.  That  is  to  say,  the  components  of  the  stress 
deviator  are  not  expected  to  exceed  the  yield  strength — typically  of 
the  order  of  5-10  MPa  in  current  compositions — so  that  the  stress 
tensor  can  be  regarded  as  isotropic,  to  a good  degree  of  approximation. 
This  implies  that  the  radial  stress  exerted  on  the  gun  tube  by  the 
propellant  will  be  approximately  equal  to  the  axial  stress--as  already 
assumed  by  Vinti.  Therefore  the  problem  of  mechanical  resistance  due 
to  wall  friction  must  surely  be  considered. 

Consider  next  the  conditions  as  the  projectile  approaches  the  muzzle 
of  the  gun.  Suppose  that  the  ideal  combustion  model  of  Langweiler  has 
indeed  been  realized.  The  pressure  of  the  gas,  is  therefore  some  large 
value.  Yet  the  design  constraints  associated  with  muzzle  blast  require 
that  the  pressure  be  suitably  limited.  Therefore,  either  the  initial 
gas  pressure  must  be  confined  to  that  limit  or  burnout  must  occur  prior 
to  muzzle  exit. 

— I - ^ — — . 
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If  burnout  occurs,  there  will  be  imposed  on  the  gas  column  a rare- 
faction wave  which  will  accelerate  it  towards  the  muzzle.  If  enough  pro- 
jectile travel  occurs  between  burnout  and  muzzle  exit,  the  velocity  profile 
will  resume  the  distribution  characteristic  of  the  conventional  charge. 

From  the  point  of  view  of  a global  energy  balance,  therefore,  the  potential 
ballistic  benefit  of  the  traveling  charge  is  apparently  diminished  following 
burnout  of  the  propellant. 

As  a final  observation  we  note  that  when  burnout  occurs,  the  velocity 
of  the  gas  is  required  Instantaneously  to  adjust  to  that  of  the  projectile. 
Since  the  jump  in  velocity  may  be  of  the  order  of  the  speed  of  sound,  the 
concomitant  drop  in  pressure  may  be  very  large.  Two  consequences  follow 
from  this  observation.  First,  the  propulsive  capacity  of  the  gas  after 
burnout  will  be  diminished  due  to  the  sharp  drop  in  base  pressure.  Second, 
a strong  tensile  wave  will  be  transmitted  through  the  projectile  and  me- 
chanical failure  might  be  a concern  if  sensitive  fuzing  or  guidance  com- 
ponents are  present. 

The  loss  of  propulsive  capacity  following  burnout  suggests  that  the 
optimum  use  of  a traveling  charge  will  involve  a design  in  which  burnout 
occurs  close  to  the  muzzle.  If  the  pressure  drop  associated  with  burnout 
is  sufficiently  great,  it  may  be  possible  to  satisfy  the  constraint  as- 
sociated with  blast  while  operating  from  a high  initial  pressure. 

From  the  foregoing  discussion  it  is  apparent  that  the  evaluation  of 
the  potential  merits  of  the  traveling  charge  concept  must  be  performed  in 
the  context  of  a model  capable  of  recognizing  the  hydrodynamic  Implications 
of  certain  hypothetical  or  ideal  combustion  laws.  Specifically,  we  seek 
herein  to  provide  a model  which  is  capable  of  answering  questions  of  the 
following  type.  What  are  the  implications,  in  regard  to  performance,  of 
limiting  the  Langweiler  combustion  model  to  subsonic  or  sonic  conditions? 

As  the  Langweiler  combustion  model  does  not  in  fact  yield  a constant  base 
pressure  on  the  projectile,  would  a more  favorable  ideal  combustion  model 
be  one  in  which  the  stress  in  the  unreacted  propellant,  or  the  acceleration 
of  the  projectile,  were  held  constant?  Would  such  an  ideal  law  require 
supersonic  combustion?  If  so,  what  would  be  the  losses  associated  with  a 
limitation  to  subsonic  or  sonic  states  in  such  cases? 

1.2  Objectives  and  Scope  of  Present  Study 

The  objectives  of  the  present  study  are  to  formulate,  encode  and  demon- 
strate a model  of  an  end-burning  traveling  charge.  The  model  is  required  to 
be  of  sufficient  scope  as  to  permit  an  assessment  of  the  hydrodynamic  and 
ideal  combustion  limits  on  performance.  However,  parametric  studies  to 
evaluate  the  theoretical  performance  of  an  end-burning  traveling  charge  and 
the  formation  of  comparisons  with  conventional  charge  performance  are  not 
within  the  scope  of  the  present  effort. 

1.3  Summary  of  Approach 

We  first  summarize  the  physical  aspects  of  the  model.  Subsequently,  we 
will  comment  on  the  method  of  solution.  The  model  is  predicated  on  the  nature 
of  the  flow  illustrated  schematically  in  figure  1.1.  The  flow  is  assumed  to 
be  one-dimensional  without  change  of  area.  The  gas  is  assumed  to  obey  a co- 
volume equation  of  state  and  is  modeled  as  a one-dimensional,  inviscld,  un- 
steady flow  with  an  allowance  for  heat  loss  to  the  tube.  The  propellant  may 
be  represented  either  as  rigid  or  as  a viscoplastic  continuum  in  which  an 
allowance  is  made  for  the  friction  exerted  on  the  tube. 
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The  breech  boundary  condition  may  be  represented  either  as  closed  or 
as  permeable  to  the  gas.  The  latter  case  enables  the  application  of  the 
model  to  vented  chambers  and  to  recoilless  rifles.  The  code  also  permits 
a simulation  of  the  blowdown  of  the  tube  following  the  expulsion  of  the 
projectile  and  any  unburned  propellant. 

The  Interface  between  the  gas  and  the  solid  propellant  is  treated 
as  a discontinuity.  A variety  of  models  are  provided  to  describe  the 
rate  of  burning.  We  have  already  noted  that  there  are  strong  arguments 
to  deny  the  possibility  of  a steady  deflagration  wave  with  supersonic 
reactants.  These  arguments  are  reviewed  in  Appendix  A.  We  nevertheless 
provide  models  of  both  subsonic  and  supersonic  deflagrations.  Our  pur- 
pose in  providing  the  latter  is  principally  to  permit  an  assessment  of 
the  extent  to  which  the  theoretical  performance  of  an  end-burning  tra- 
veling charge  Is  limited  by  the  restriction  of  burning  to  the  subsonic 
or  sonic  conditions . 

Considering  first  the  subsonic  cases  it  follows  that  only  one  con- 
dition may  be  imposed  on  the  burning  process.  We  admit  any  one  of  the 
following.  The  burn  rate  may  be  described  as  a function  of  pressure 
according  to  measurements.  The  burn  rate  may  be  required  to  yield  the 
ideal  combustion  of  Langweiler.  The  burn  rate  may  be  required  to  yield 
a predetermined  value  of  pressure  on  the  unreacted  side  of  the  gas/ 
propellant  interface  or  to  yield  a predetermined  value  of  the  accele- 
ration of  the  projectile.  Finally,  the  burn  rate  may  be  required  to 
yield  a predetermined  Mach  number  of  the  reactants,  provided,  of 
course,  that  this  value  is  less  than  one.  In  all  these  cases,  the 
subsonic  nature  of  the  flow  demands  that  the  reactants  satisfy  a con- 
dition of  mechanical  compatibility  with  the  column  of  gas. 

If  the  reactants  become  supersonic,  they  are  no  longer  required  to 
be  mechanically  compatible  with  the  gas.  The  deflagration  influences 
but  is  not  influenced  by  the  motion  of  the  gas  unless  a shock  of  suf- 
ficient strength  is  formed  to  overtake  the  supersonic  boundary.  We 
admit  two  possible  models  of  a supersonic  deflagration.  The  first  is 
the  Langweiler  model.  In  the  case  of  supersonic  burning,  two  con- 
ditions may  be  imposed  on  the  process.  The  Langweiler  process  may  be 
interpreted  as  specifying  both  the  velocity  and  pressure  of  the  reactants. 
A second  model  is  defined  by  specifying  the  Mach  number  of  the  reactants 
— greater  than  or  equal  to  unity — and  either  the  pressure  on  the  un- 
reacted side  of  the  gas /propellant  interface  or  the  acceleration  of 
the  projectile. 

Full  details  of  the  physical  model  and  the  relevant  governing 
equations  are  given  in  chapter  2.0.  In  chapter  3.0  we  describe  the 
method  of  solution  which  may  be  summarized  as  follows.  A time  dependent 
mesh  is  allocated  subject  to  constraints  on  minimum  mesh  size  and  total 
number  of  points.  A two  level  explicit  marching  scheme  is  used  to  up- 
date the  state  of  interior  mesh  points  and'  the  method  of  characteristics 
is  used  at  the  boundaries.  Chapter  3.0  describes  in  detail  the  imple- 
mentation of  the  various  models  of  burning  and  also  discusses  the  rules 
according  to  which  branching  may  occur  among  them  during  a given  Interior 
ballistic  cycle. 

The  method  of  solution  is  illustrated  in  chapter  4.0.  A comparison 
is  given  with  an  exact  solution  for  a simple  case  to  provide  an  absolute 
benchmark  of  accuracy.  A nominal  traveling  charge  configuration  is 
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discussed  to  exhibit  the  degree  of  mesh  indifference  of  the  code  and 
the  extent  to  which  mass  and  energy  are  conserved  on  a global  basis. 

We  also  comment  briefly  on  the  ballistic  consequences  of  friction 
between  the  propellant  and  the  tube. 

The  code  itself  is  described  in  Appendix  B which  contains  tables 
of  the  various  routines  and  their  linkages,  a glossary  of  variable  names, 
and  the  format  of  the  data  used  to  run  the  code.  A Fortran  IV  listing 
is  also  attached. 
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2.0  GOVERNING  EQUATIONS  FOR  MODEL 

The  governing  equations  for  the  model  consist  of  one-dimensional 
time-dependent  statements  of  the  balances  of  mass,  momentum  and  energy 
supported  by  constitutive  laws  and  subjected  to  boundary  and  initial 
conditions.  The  gas  is  always  treated  as  a continuum  as  described  in 
section  2.1.  The  unreacted  propellant  may  be  represented  either  as  a 
continuum  or  as  a rigid  body,  according  to  the  interests  of  the  user  of 
the  model.  The  equations  in  the  continuum  case  are  described  in  section 
2.2  while  the  case  of  rigid  body  motion  is  included  with  the  discussion 
of  the  motion  of  the  projectile  in  section  2.3.  The  constitutive  laws 
are  described  in  section  2.4.  The  discussion  of  section  2.4  Includes 
the  equations  of  state  for  the  gas  and  the  solid  propellant,  heat  loss 
to  the  tube,  friction  between  the  tube  wall  and  the  solid  propellant, 
resistance  to  projectile  motion  and,  finally,  the  description  of  non- 
ideal  rates  of  burning  such  as  those  determined  experimentally.  The 
analysis  of  ideal  burn  rates,  in  which  the  reactants  are  required  to 
come  to  rest  or  to  attain  a prespecified  Mach  number  or  to  induce  a 
predetermined  level  of  acceleration  of  the  projectile  or  of  stress  in 
the  unreacted  propellant,  are  described  in  section  2.5  which  treats  the 
boundary  conditions.  Finally,  section  2.6  of  this  chapter  discusses  the 
initial  conditions;  when  the  propellant  is  burning  vigorously  at  the  ini- 
tial Instant,  these  may  be  non-trivlal.  The  method  of  solution  of  the 
governing  equations  is  the  subject  of  chapter  3.0. 

2.1  Balance  Equations  for  Gas 

The  motion  of  the  gas  is  assumed  to  be  one-dimensional,  unsteady, 
inviscid  and  non-heat-conducting.  However,  the  loss  of  heat  to  the  tube 
wall  is  considered  in  the. balance  of  energy.  Using  t to  represent  time, 

X to  represent  the  axial  coordinate  and  p,  u,  p,  e to  represent  the 
density,  velocity,  pressure  and  internal  energy  of  the  gas,  the  balance 
equations  may  be  expressed  in  the  usual  forms : 


Balance  of  Mass 


Balance  of  Momentum 

(pu^  + g^p)  = 0 


at 


ax 


2.1.1 


2.1.2 


Balance  of  Energy 


_a_ 

at 


p(e 


+ — pu(e  + 


-£  + 
P 


2g, 


2.1.3 


Here  we  have  also  used  q^  to  represent  the  heat  loss  per  unit  volume  of 
gas  per  unit  time  and  gg  is  a constant  used  to  reconcile  units. 
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It  is  well  known  that  these  equations  are  of  the  hyperbolic  type'^. 
That  is  to  say,  there  exist  real  lines  on  which  the  equations  reduce  to 
ordinary  differential  forms  Involving  only  derivatives  along  the  lines 
in  question.  The  lines  are  referred  to  as  characteristics  and  the  dif- 
ferential forms  are  called  conditions  of  compatibility.  The  existence  of 
the  characteristic  lines  follows  naturally  from  a consideration  of  the 
Cauchy  problem  for  the  quasi-linear  system^^ 


3iJj 

3t 


Bfl-  C 
3x 


2.1.4 


where  ijj  and  C are  k-dimensional  vectors  and  A and  B are  k x k matrices. 
Consider  the  transformation  (x,t)  -*■  (s,n)  so  that  2.1.4  becomes 


[An^  + Bn  lij/  = C - [As^  + Bs  ]i|)  2.1.5 

where  the  subscript  denotes  a partial  derivative.  Let  the  vector  ip  be 
specified  on  the  initial  line  n = n^.  Then  the  line  is’  called  free  if 
2.1.5  permits  the  determination  of  the  normal  derivatives  and  charac- 
teristic if  it  does  not.  The  importance  of  this  point  is  simply  that  if 
the  normal  derivatives  can  be  determined,  successive  differentiation  will 
permit  the  determination  of  derivatives  of  all  orders  with  respect  to  n 
so  that  the  solution  can  be  obtained  in  a neighborhood  of  the  initial  data 
by  means  of  Taylor's  theorem. 

Evidently,  the  condition  that  the  line  n = n be  free  is  that  the 
rank  of  the  matrix  ° 

A = An  + Bn 

t X 

be  r(A)  = k whereupon  2.1.5  has  a unique  solution  for  the  components  of 
\p  . When  r(A)  < k the  line  n = n is  characteristic.  However,  if  the 
equation  2.1.5  is  to  hold  at  each  point  on  such  a line,  the  initial  data 
are  not  arbitrary,  but  are  constrained  by  the  condition  of  solvability 
for  the  linear  system  2.1.5,  namely 

r(A''’)  = r(A) 

where  A"*”  = [A;  C - [As^  + Bs^]i()g]  is  the  augmented  matrix.  These  condi- 
tions of  solvability  yield  the  conditions  of  compatibility  for  each 
characteristic  line. 


A convenient  choice  for  the  parameter  s is  s = t.  However,  it  must 
be  borne  in  mind  that  \pg  is  a derivative  with  n held  constant  so  that 
4's  = '('ttg  + also  use  the  relations  dx/dt  = Xg/tg  = 

where  dx  and  dt  are  understood  to  be  differentials  along  the  line  n = n^, 
to  recast  A and  A”^  as : 

A = Adx  - Bdt  2.1.6 

a"*"  = [A;  C - A 2.1.7 


Petrovsky j I.  G.  "Partial  Differential  Equations" 

Intersaienae^  New  York  1954 
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By  eliminating  e in  favor  of  p and  p in  2.1.3  and  introducing  the 
isentropic  sound  speed  c,  it  is  easy  to  to  show  that  the  system  2.1.1, 
2.1.2,  2.1.3  yields  the  following  characteristics  and  conditions  of  com- 
patibility. On  the  lines  designated  by  Tg"  whose  slopes  satisfy 


dx 

dt 


u ± c 


2.1.8 


we  have  the  conditions  of  compatibility 


w 


dp  ^ £c  du  _ 

3p  p 

while  on  the  line  F whose  slope  satisfies 

8 

dx 

dt  “ 

we  have  the  condition  of  compatibility 


dp  c dp 


dt 


p(|!) 


3p  P 


2.1.9 


2.1.10 


2.1.11 


We  will  refer  to  Fa  and  r„  as  the  acoustic  characteristics  and  F 
will  be  referred  to  as  the  gas-material  characteristic. 


2.2  Balance  Equations  for  Solid  Propellant 


IVhen  the  propellant  is  represented  as  a continuum,  it  is  taken  to  be 
one-dimensional,  unsteady  and  isothermal.  Accordingly,  we  require  only 
the  balances  of  mass  and  of  momentum.  We  use  Pp,  up  and  a to  represent 
the  density,  velocity  and  pressure  in  the  propellant.  The  balance  of  mo- 
mentum also  incorporates  the  influence  of  friction  due  to  the  contact  of 
the  propellant  with  the  tube  wall.  We  have 


Balance  of  Mass 

3p_  a 

-r-^  + p U =0 
3t  3x  ^p  p 

Balance  of  Momentum 


3 ^ 3 r 2^  , 

ot  p p ox  P p o 


= f 


2.2.1 


2,2.2 


The  pressure  is  not  assumed  to  be  an  integrable  function  of  density 
since  the  stress  response  of  the  propellant  is  expected  to  be  path  de- 
pendent in  general.  We  anticipate  the  discussion  of  section  2.4.2  by 
noting  that  we  take  the  pressure  and  density  to  be  related  by 


3a  ^ _ a ^ 

3t  ^p  3x  g^ 


+ u 

P 


2.2.3 


where  a is  the  rate  of  propagation  of  small  disturbances  and  is,  in  general, 
dependent  on  both  density  and  rate  of  change  of  density. 


19 


The  procedure  summarized  in  the  previous  section  may  be  applied  to 
equations  2.2.1,  2.2,2  and  2.2.3  to  yield  the  following  characteristic 
lines  and  conditions  of  compatibility.  On  Fp-  defined  by 


dx 

dt 


u ± a 


2.2.4 


we  have  the  conditions 
du 

n 

= ± af 


da  , a 
dt  - Pp 


dt 


w 


while  on  r ° defined  by 
P 

dx 

dt  '^p 


2.2,5 


2.2.6 


we  have 

j 2 dp  ^ 

^ _ JL.  P 2. 

dt  dt 

Equation  2.2.7  is,  of  course,  just  a restatement  of  equation  2.2.3. 


2.3  Motion  of  the  Projectile 


The  projectile  is  treated  as  a rigid  body  whose  motion  is  resisted  by 
the  pressure  of  shocked  air  ahead  of  it  and  by  friction  between  its  ob- 
turating band  and  the  tube  wall.  The  resistive  terms  are  described  in 
section  2.4.5;  here  we  simply  represent  the  total  resistive  force  by  F. 
Using  Xp  to  denote  the  position  of  the  projectile  at  any  time,  Mp  to  de- 
note its  mass,  to  denote  the  bore  area  of  the  tube  and  a(Xp)  to  denote 
the  pressure  at  the  interface  between  the  solid  propellant  and  the  pro- 
jectile base,  the  equation  of  motion  of  the  projectile  takes  the  simple 
form 


M X = g [A^0(X  ) - F]  2.3.1 

p p Ob  p 

where  a dot  is  used  to  denote  a total  derivative  with  respect  to  time. 

In  the  preceding  section  we  described  the  analysis  of  the  propellant 
viewed  as  a continuum.  If  its  mechanical  response  is  not  of  interest  it 
may  be  viewed  as  a rigid  body  and  its  motion  incorporated  with  that  of 
the  projectile.  Let  the  position  of  the  regressing  propellant  surface 
be  denoted  by  Xp,  relative  to  the  same  origin  as  Xp ; let  the  instantaneous 
mass  of  the  propellant  be  mp  and  denote  by  r the  rate  of  regression  rela- 
tive to  the  unreacted  propellant  whose  velocity  is  equal  to  that  of  the 
projectile,  namely  Xp.  Evidently 


Moreover,  letting  p„  be  the  constant  value  of  propellant  density  in  the 

r O 

case  when  it  is  viewed  as  a rigid  body,  we  clearly  have 


m = - A^p  r 2.3.3 

^ ^o 
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If  a(Xp)  is  the  pressure  on  the  unreacted  side  of  the  regressing  surface, 
it  follows  that  the  equation  of  motion  of  the  propellant  and  the  projec- 
tile, viewed  as  a'  single  rigid  body,  is  Just 

(M  + m ) X = g [A^a(x  ) - F]  2.3.4 

P P P ®o'-  b ^ p-^ 

Equation  2.3.4  can  be  deduced  either  from  limiting  arguments  in  which  Xp 
is  approached  from  the  unreacted  side  or  by  considering  a balance  of 
momentum  for  a control  volume  which  instantaneously  envelopes  the  pro- 
jectile and  unreacted  propellant.  In  the  latter  case  one  has 

3F  + "p"  ■ - \0pfp 

Then  the  substitution  of  2.3.3  into  this  result  yields  2.3.4. 

2.4  Constitutive  Laws 


We  use  the  term  constitutive  law  in  a broad  sense  here  to  denote  not 
only  the  equations  of  state  for  the  gas  and  the  solid  propellant  but  also 
the  equations  governing  heat  loss,  friction  and  measured  rates  of  burning 


2.4.1  Equation  of  State  of  Gas 


The  gas  is  assumed  to  obey  a covoliime  of  state.  Thus  we  have 


e 


, T = - bp) 

V (y  - l)p 


2.4.1 


where  c^  is  the  specific  heat  at  constant  volume,  b is  the  covolume,  y 
is  the  ratio  of  specific  heats,  and  we.  have  used  T to  denote  the  tem- 
perature. If  I?  is  the  universal  gas  constant  and  M is  the  molecular 
weight  of  the  gas  we  have  c^  = E/M/(y  - 1).  Moreover,  from  2.4.1,  we 
have  the  partial  derivative 


3e\  ^ 1 - bp 

3p/p  P(Y  - 1) 


2.4.2 


as  required  by  equations  2.1.9  and  2.1.11. 
speed  follows  as 


2 

c 


p(l  - bp) 


Finally,  the  isentroplc  sound 


2.4.3 


2.4.2  Equation  of  State  of  Solid  Propellant 

From  our  formulation  of  the  equations  of  motion  of  the  solid  propellant 
viewed  as  a continuum,  it  is  evident  that  we  anticipate  finite  strains.  As 
reflected  by  equation  2.2.3,  we  embed  the  equation  of  state  into  the  func- 
tional dependence  of  the  rate  of  propagation  of  small  disturbances  on  den- 
sity and  the  rate  of  change  of  density.  The  general  constitutive  model  for 
the  respons'e  of  the  propellant  may  be  thought  of  as  viscoplastic  since  2.2.3 
expresses  a differential  relationship  between  stress  and  strain.  Moreover, 
the  relationship  need  not  be  reversible.  However,  hereditary  behavior  is  not 
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considered  here.  Viscoelastic  or  hereditary  behavior  requires  that  deri- 
vatives of  different  orders  be  applied  to  stress  and  strain  in  the  consti- 
tutive relationship.  For  example,  strain-rate  may  be  proportional  to 
stress  so  that  elongation  continues  while  the  stress  Is  held  constant. 

The  use  of  2.2.3  implies  that  density,  or  strain,  will  change  only  under 
the  action  of  a change  in  stress.  Since  propellants  do  exhibit  visco- 
elastic properties  at  moderate  rates  of  strain  and  at  ambient  temperature, 
the  use  of  2.2.3  implies  that  the  characteristic  time  associated  with  the 
application  of  the  load  must  be  short  in  comparison  with  the  internal 
relaxation  times. 


The  equation  for  the  rate  of  propagation  of  small  disturbances  has 
been  assumed  here  to  take  a particularly  simple  functional  form,  namely 

a = ° 2.4.4 

a^  , unloading  or  reloading 

Here  Pp  is  the  density  at  ambient  conditions  and  a^  is  the  corresponding 
rate  of  propagation  of  a compressive  wave.  If  E is  the  modulus  of  com- 
pression of  a laterally  confined  sample  of  propellant  subjected  to  small 
loads,  then  a^  = /g^E/ Pp^  . To  be  physically  meaningful,  the  unloading 
or  reloading  wave  speed  a2  should  exceed  the  loading  wave  speed  for  all 
values  of  pp.  In  fact  2.4.4  has  been  encoded  so  that  if  a2  = 0,  a rever- 
sible law  is  used  based  on  the  loading  branch  of  2.4.4. 


Unloading,  reloading  and  loading  are  defined  by  reference  to  the 
of  coi 
defined  by 


rate  of  compression  Pp  = 8pp/3t  + Up3pp/3x  and  the  nominal  loading  curve 


a*(Pr,) 

* P 


2 

a.  P. 


3g, 


- 1] 


2.4.5 


The  propellant  is  unloading  if  pp  < 0;  loading  if  p >0  and  a = 

reloading  if  p„  > 0 and  a < a.. 

P ^ 


Expressed  in  the  form  2.4.5,  the  nominal  loading  curve  is  seen  to  be  a 
special  case  of  that  proposed  by  Murnaghan^^  in  connection  with  the  finite 
deformation  of  solids;  in  the  general  case  the  value  3 is  replaced  by  k in 
both  the  exponent  and  the  pre-multiplying  group  of  2.4.5.  The  functional 
dependence  of  a on  Pp  and  p has  been  encoded  in  a modular  fashion  so  that 
modifications  may  be  made  easily  when  the  availability  of  data  so  warrants. 


2.4.3  Heat  Loss  to  the  Tube 

We  use  a very  simple  model  for  the  heat  loss  to  the  tube,  it  being 
understood  that  our  interest  in  heat  loss  is  confined  to  its  ballistic 
consequences,  particularly  the  degradation  of  muzzle  velocity.  The  tube 
wall  is  treated  as  though  its  temperature  remained  constant  at  the  ini- 
tial value  T^.  The  heat  loss  is  determined  by  means  of  an  empirical  cor- 
relation for  the  film  or  heat  transfer  coefficient  based  on  fully 


^^xmaghan,  F.  F. 


"Finite  Deformation  of  an  Elastic  Solid, " 

Dover y New  York  1967 
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developed  turbulent  flow  in  a pipe.  Both  the  assumption  of  constant  wall 
temperature  and  that  relating  to  the  heat  transfer  coefficient  are  very 
crude;  however,  they  involve  errors  which  tend  to  compensate  one  another. 
The  wall  temperature  will,  of  course,  increase  substantially  during  the 
interior  ballistic  cycle.  A consequence  of  this  increase  will  be  a re- 
duction in  heat  transfer  which  is  proportional  to  the  difference  between 
gas  temperature  and  wall  temperature.  On  the  other  hand,  the  boundary 
layer  is  expected  to  be  very  much  thinner,  due  to  the  short  time  available 
for  its  development,  than  is  represented  by  a correlation  based  on  a fully 
developed  flow,  and  the  film  coefficient  correspondingly  greater.  Thus 
the  assumption  of  constant  wall  temperature  Implies  an  overestimate  of 
heat  loss  which  is  compensated  by  the  underestimate  based  on  a film  co- 
efficient for  fully  developed  flow. 


The  film  coefficient  is  represented  in  the  empirical  form^^ 

h = I [0.023  2.4.6 

where  h is  the  film  coefficient,  k is  the  thermal  conductivity  of  the 
gas,  D is  the  diameter  of  the  tube,  Re^  = p|u|D/y  is  the  Reynolds  number 
based  on  D,  Pr  = CpP/K  is  the  Prandtl  number  of  the  gas  and  p is  the 
viscosity  of  the  gas. 


Then  the  heat  loss  per  unit  volume  of  gas  is  seen  to  be  related  to 
h according  to 


2.4.7 


Using  2.4.6  and  eliminating  ic  in  favor,  of  h and  p we  have 


c pPr 

^ ^ V - V 

where  = 0.092  according  to  2.4.6  and  2.4,7. 
is,  however,  at  the  discretion  of  the  user,  to 
matching . 


2.4.8 


The  precise  value  of 
facilitate  ballistic 


‘I, 


2.4.4  Friction  Between  Propellant  and  Tube 

The  solid  propellant  is  not  expected  to  be  able  to  sustain  the  axial 
stresses  induced  by  the  base  pressure  without  the  support  of  radial  con- 
finement. Indeed,  the  strength  of  current  formulations  is  such  that  the 
radial  component  of  stress  will  be  quite  close  in  value  to  the  axial 
stress  at  any  point.  Such  hydrodynamic  behavior  is  typical  of  solids 
stressed  significantly  beyond  the  material  yield  point.  As  a consequence, 
mechanical  interaction  between  the  solid  propellant  and  the  tube  wall  is 
expected  to  be  important  and,  in  particular,  the  resistance  due  to  friction 
may  be  of  importance  in  many  cases. 
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In  order  to  assess  the  ballistic  losses  associated  with  friction 
between  the  solid  propellant  and  the  tube  we  provide  two  simple  models . 
The  first  model  takes  the  frictional  resistance  f to  be  proportional  to 
the  local  value  of  the  pressure  in  the  form 

“ ■ n Sgn(u  ) 2.4.9 

W D W p p 

where  is  a velocity  dependent  coefficient  of  friction  and  Sgn  denotes 
the  sign  function. 


Alternatively,  if  a gas  film  of  viscosity  and  thickness  6^  can 
be  Interposed  between  the  propellant  and  the  tube  wall,  the  resistance  f^ 
becomes^^ 


w D 6^  p 


2.4.10 


and  is  proportional  to  velocity  rather  than  pressure. 


2.4.5  Resistance  to  Projectile  Motion 


The  resistance  to  projectile  motion  is  considered  to  stem  from  two 
sources.  We  write 


^ ° \ ^Pa  Pband  ^ 


2.4.11 


where  p^  is  the  pressure  exerted  by  the  air  in  front  of  the  projectile 
and  reflects  the  resistance  due  to  the  obturator  or  rotating  band 

and  is  also  expressed  as  a pressure.  The  resistance  due  to  the  air  in 
front  of  the  projectile  is  determined  from  the  pressure  behind  a shock 
whose  strength  is  such  that  the  compressed  gas  has  a velocity  equal  to 
that  of  the  projectile  at  any  instant.  Then  if  the  unshocked  air  is 
taken  to  be  at  rest  with  pressure  Pg  and  speed  of  sound  Cg,  it  follows 
that  p^  is  given  by 


X + [X  ^ + 4(1  - 

(1  + p")  [ -2 £ 2 

2(1  - p )c 


2.4.12 


where  p “ (y^  - l)/(Ya  + 1)  and  is  the  ratio  of  specific  heats  of  air. 


The  resistance  due  to  the  obturator  may  be  given  in  one  of  two  forms. 
Either  it  is  prespecified  as  a tabular  function  of  projectile  travel  or  it 
follows  from  an  estimate  of  the  normal  force  between  the  obturator  and  the 
tube  wall  as  follows . 


Let  0^  and  represent  the  axial  and  radial  components  of  stress  in 
the  projectile  and,  following  the  usual  convention,  let  them  be  positive 
in  tension.  Let  the  length  of  the  obturator,  be  sufficiently  small  that 
we  can  typify  adequately  the  state  of  stress  by  the  values  at  its  midpoint. 
Let  be  the  projectile  mass  which  is  supported  by  a section  through  the 
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midpoint  of  the  obturator  and  let  be  the  coefficient  of  friction 
between  the  tube  and  the  obturator.  A balance  of  axial  forces  yields 


TrD£, 
b 

2 


wb  r 


2.4.13 


On  the  other  hand,  taking  the  tube  to  be  sufficiently  stiff  that 
radial  strains  do  not  occur,  and  supposing  the  behavior  of  the  projectile 
to  be  elastic,  the  axial  and  radial  strains  are  related  according  to^^ 


where  v is  Poisson's  ratio.  Substitution  of  2.4.14  into  2.4.13  yields  the 
value  of  Op  whereupon  the  resistive  pressure  due  to  the  obturator  takes 
the  form 


^band 


^^wb^b 

goTTD 


2 


2.4.15 


Equation  2.4.15  is  appropriate  to  the  case  when  there  is  no  initial  inter- 
ference between  the  band  and  the  tube.  , If  such  an  interference  does  exist, 
we  assume  it  to  be  characterized  by  an  initial  shot  start  pressure  Pg . 

Then  the  value  of  Pband  given  by  2.4.15  is  augmented  by  the  quantity 
^wb^^P^Ps^^wb^®^  which  the  coefficient  of  friction  is  assumed  to  depend 
on  velocity. 


2.4,6  Propellant  Burn  Rate  (Measured) 


It  is  assumed  that  if  data  are  available  to  describe  the  burn  rate 
of  the  propellant,  the  functional  relationship  has  the  usual  form 

r = + B^p”  2.4.16 

in  which  B2  and  n are  parameters  which  may  take  different  values  for 
successive  segments  of  the  propellant.  The  value  of  p is  assumed  here 
to  pertain  to  the  reacted  material.  Burn  rates  of  the  form  given  by  equa- 
tion 2.4.16  are  only  well  posed  physically  when  the  reactants  have  a sub- 
sonic velocity  relative  to  the  regressing  surface.  Further  discussion  of 
this  point  is  contained  in  Appendix  A. 


2.5  Boundary  Conditions 

The  boundary  conditions  are  of  several  types  and  are  discussed  in 
several  subsections.  Conditions  at  the  breech,  which  may  be  either  closed 
or  open,  are  discussed  in  section  2.5.1.  In  section  2.5.2  we  consider 
first  the  conditions  at  the  base  of  the  projectile  when  the  propellant 
has  not  burned  out.  Subsequently  we  consider  the  change  in  conditions 

__  ^ 

Fungj  Y.  C.  "Foundations  of  Solid  Mechanics"  Prentice-Hall ^ , 1965 
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at  burnout.  Finally,  we  note  the  conditions  which  apply  following  the 
exit  of  the  projectile,  if  blowdown  of  the  tube  is  of  interest.  The 
boundary  conditions  then  apply  to  the  open  muzzle  and  the  discussion  is 
similar  to  that  of  section  2.5.1.  The  conditions  at  the  regressing  in- 
terface between  the  reacted  and  unreacted  propellant  are  discussed  in 
section  2.5.3.  This  section  also  addresses  the  analysis  of  the  ideal 
rates  of  burning. 

2.5.1  Breech  (Closed  or  Open) 

The  boundary  conditions  at  the  breech  are  taken  to  apply  only  to  the 
gas  as  the  solid  propellant  is  assumed  never  to  approach  the  breech.  When 
the  breech  is  closed  there  is  but  one  condition  to  consider,  namely  the 
vanishing  of  the  velocity  of  the  gas . If  we  take  the  breech  as  the  ori- 
gin of  the  axial  coordinate  x we  therefore  require 

u(0,t)  = 0 , all  t 2.5.1 

When  the  breech  is  open  it  is  assumed  to  be  connected  to  the  exterior 
via  a nozzle  whose  throat  area  is  A*  and  whose  discharge  coefficient  is 
Cqb.  We  assume  CjjgA*  < A^^ . The  external  pressure  is  assumed  to  be  neg- 
ligible by  comparison  with  the  stagnation  pressure  at  the  boundary.  There 
fore,  we  do  not  consider  the  possibility  of  a totally  subsonic  efflux 
and  the  external  venting  area  is  of  no  concern. 

The  critical  mass  flow  rate  corresponding  to  sonic  conditions  at  the 
throat  may  be  approximated  with  sufficient  accuracy  by  the  equation^ 


m^ 
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{ 1 - 0.224y  + 0 
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2.5.2 


where  y = (bpg'j'^QW)  / (i?Tg.j.^Q)  . This  result  is  strictly  true  only  for  the 
case  Y = 1.25,  but  we  regard  the  evaluation  of  the  covolume  correction 
for  other  values  of  y to  be  unnecessary  in  view  of  the  smallness  of  the 
correction.  The  stagnation  temperature  and  pressure  are  related  to  the 
boundary  values  according  to 
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2.5.3 


and 
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2.5.4 


where  the  unsubscrlpted  quantities  represent  the  boundary  values. 
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Because  the  flow  is  unsteady,  it  is  not  necessarily  the  case  that 
the  Mach  number  M = |u|/c  is  limited  to  values  less  than  or  equal  to 
unity.  However, -we  suppose  that  quasi-steady  arguments  do  apply  to  the 
gas  between  the  boundary  and  the  exterior.  Then  the  rules  governing  the 
discharge  may  be  stated  as  either  M > 1 and  m = pA^j|ul  < m*  or  else 
m = m*.  As  noted  above,  the  case  M < 1 and  m < m*  is  not  of  interest  since 
the  external  pressure  is  assumed  too  low  to  allow  a totally  subsonic  dis- 
charge. Since  discharge  is  expected  to  commence  with  a Mach  number  less 
than  or  equal  to  unity,  a transition  to  supersonic  venting  requires  that 
a sufficiently  strong  compression  wave  impinge  upon  the  boundary,  the 
strength  increasing  with  the  excess  of  A^  over  CjjgA^.  In  principle,  if 
Ab  > ^db^**  ^ shock  is  required. 

A different  situation  arises  in  the  case  of  venting  through  the 
muzzle  after  the  projectile  has  exited.  Then  the  flow  may  initially  be 
supersonic  as  we  comment  further  in  the  next  section. 

2.5.2  Projectile  Base  and  Muzzle  Following  Projectile  Exit 

Considering  the  conditions  which  apply  at  the  base  of  the  projectile 
it  is  clear  that  prior  to  burnout,  when  the  propellant  is  represented  as 
a continuum,  we  have 

u (X  ,t)  = X 2.5.5 

P P P 

and,  following  burnout  of  the  propellant,  we  have  the  corresponding 
condition  on  the  gas,  namely 

u(X^,t)  = i 2.5.6 

P P 

The  transition  from  2.5.5  to  2.5.6  occurs  at  the  instant  of  burnout. 
Because  the  sudden  application  of  2.5.6  to  the  gas  may  represent  an  in- 
stantaneous increase  in  velocity  comparable  in  magnitude  to  the  speed 
of  sound,  it  is  accompanied  by  a rather  large  drop  in  pressure.  This 
point  is  discussed  further  in  chapter  3.0  when  we  consider  the  numerical 
determination  of  the  boundary  values. 

In  some  instances  it  will  be  of  interest  to  continue  the  solution 
following  the  exit  of  the  projectile  from  the  muzzle.  The  histories  of 
muzzle  pressure  and  temperature  are  of  interest  since  they  are  connected 
with  problems  of  blast  and  flash.  In  almost  all  cases  of  interest  the 
flow  will  be  supersonic  at  exit,  provided  that  burnout  has  occurred. 

The  discharge  at  the  muzzle  is  presumed  to  be  characterized  by  a discharge 
coefficient  Critical  flow  is  determined  by  equation  2.5.2  with 

CpMuz  place  or  Cjjg  and  Ag  in  place  of  A*.  If  dis- 

charge is  initially  supersonic,  it  will  remain  so  until  the  Mach  number 
reaches  the  value  unity  whereupon  2.5.2  will  govern  the  discharge  and  the 
Mach  number  will  remain  equal  to  one.  As  with  the  treatment  of  the  breech, 
subsonic  venting  is  not  considered.  If  the  discharge  is  initially  super- 
sonic but  < 1,  an  abrupt  transition  will  occur  when  the  Mach  number 
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decreases  to  a point  at  which  the  flow  cannot  be  passed  through  the 
effective  throat  area  Physically,  the  occurrence  of  choking 

will  result  in  the  rearward  propagation  of  a shock  or  strong  compression 
wave  to  decelerate  the  supersonic  flow.  The  magnitude  of  the  jump  will 
be  proportional  to  the  degree  of  departure  of  ftom  unity. 

On  the  other  hand,  if  the  discharge  is  inltally  subsonic,  choking 
will  occur  at  the  instant  of  expulsion  of  the  projectile  and  a rare- 
faction will  be  propagated  rearward  to  accelerate  the  flow. 


2.5.3  Gas/Propellant  Interface 


The  layer  in  which  the  unreacted  propellant  is  thermally  stimulated, 
decomposes,  and  releases  its  energy  of  chemical  bonding,  is  assumed  to  be 
sufficiently  thin  that  it  may  be  represented  as  a surface  of  disconti- 
nuity. Further  discussion  of  this  assumption  is  given  in  Appendix  A. 

Using  the  previously  established  nomenclature,  we  may  express  the  prin- 
ciples of  conservation  of  mass,  momentum  and  energy  for  the  propellant 
transported  across  the  surface  of  discontinuity  in  the  following  forms. 


p(u  - X ) = - p r 
P P 


2.5.7 


p + (u  - X )^  = a + — ^ r^ 
®o  P So 


e + -P-  + ^ 


~ — (u-x)^  = e + — + — 

P P Pp 


2.5.8 

2.5.9 


Here  ep  may  be  understood  to  mean  the  chemical  energy  released  following 
decomposition  of  the  propellant.  We  also  note 


x=u+r  2.5.10 

P P 

which  is  identical  with  2.3.2  when  the  propellant  is  taken  to  be  rigid. 

Of  course,  if  the  propellant  is  not  burning  as  may  be  required  in  certain 
ideal  cases,  2.5.7,  2.5.8  and  2.5.9  are  replaced  by  the  conditions  of 
continuity  of  pressure  and  velocity. 


Because  the  regressing  surface  is  presumed  to  be  a deflagration  wave, 
its  velocity  of  advance  relative  to  the  unreacted  propellant  must  always 
be  subsonic  ® . Accordingly,  when  the  propellant  is  treated  as  a con- 
tinuum, it  follows  that  the  characteristic  lines  Tp®  and  F ~ both  inter- 
cept the  regressing  surface  and  impose  conditions  of  compatibility  be- 
tween the  boundary  values  on  the  unreacted  side  and  values  in  the  interior 
of  the  propellant.  Further  discussion  of  the  application  of  this  obser- 
vation is  given  in  chapter  3.0.  Because  of  the  two  conditions  of  com- 
patibility, the  three  quantities  a,  Up  and  Pp  are  not  all  independent  of 
the  state  of  the  interior.  We  may  regard  a as  the  independent  member 
which,  when  specified,  yields  unique  values  of  Up  and  Pp  which  are  com- 
patible with  the  interior  state  of  the  propellant.  On  the  other  hand, 
if  the  propellant  is  treated  as  rigid  we  have  Pp  = Pp  , a constant,  and 
Up  • Xp  which  is,  in  turn,  a function  of  a.  Accordingly,  we  may  consider 
a as  the  only  unknown  quantity  pertaining  to  the  state  of  the  unreacted 
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propellant  and  that  Up  and  Pp  are  either  given  or  follow  from  the  condi 
tions  of  compatibility.  From  this  perspective  therefore,  we  have  five 
independent  quantities  to  be  determined  at  the  interface,  namely  p,  p, 
u,  0 and  r.  The  internal  energy  e is,  of  course,  given  as  a function 
of  p and  p and  Xp  is  related  to  Up  and  r via  equation  2.5.10.  Thus  we 
have  three  conditions,  equations  2.5.7,  2.5.8  and  2.5.9  to  determine 
five  quantities.  Clearly,  we  need  two  additional  independent  relations 

When  the  reactants  are  subsonic,  as  viewed  from  the  regressing  sur 
face,  it  follows  that  characteristics  of  the  T family  Intercept  the 
boundary  and  impose  a condition  of  compatibility  with  the  state  of  the 
interior  of  the  gas.  Thus,  whenever  the  reactants  are  subsonic  there 
remains  just  one  additional  condition  which  may  be  applied  to  the  boun- 
dary values  independently  of  the  principles  of  conservation  of  mass, 
momentum  and  energy  and  of  the  requirement  that  the  state  of  each  side 
of  the  interface  be  compatible  with  the  contiguous  substance. 

In  the  event  that  the  reactants  are  subsonic  we  consider  that  the 
remaining  boundary  condition  may  be  any  one  of  the  following. 

(a)  Measured  Burn  Rate  (With  Subsonic  Reactants) 

When  measurements  of  the  burn  rate  as  a function  of 
the  pressure  of  the  fully  reacted  gas  are  available,  the 
burning  rate  law,  in  the  form  2.4.16  completes  the  deter- 
mination of  the  boundary  values. 

(b)  Ideal  Burning  of  Langweller  (With  Subsonic  Reactants) 

According  to  the  ideal  traveling  charge  model  of 
Langweller^  the  reactants  are  to  be  brought  to  rest  once 
reaction  is  complete.  The  condition  u = 0 serves  to  com- 
plete the  determination  of  the  boundary  values. 

(c)  Prespecified  Value  of  Pressure  on  Unreacted  Side  or  of 

Acceleration  of  Projectile  (With  Subsonic  Reactants) 

It  is  easy  to  see  that  if  the  ideal  combustion  of 
Langweller  commences  from  some  initially  quiescent  state 
then  the  pressure  of  the  reactants  remains  constant  in 
time  and  uniform  over  the  length  of  the  gas  column.  How- 
ever, the  pressure  on  the  unreacted  side  of  the  inter- 
face exceeds  that  in  the  gas  by  an  amount  which  increases 
with  the  velocity  of  the  projectile,  the  excess  being  due 
to  the  momentum  jump  at  the  interface  and  representing  the 
contribution  of  momentum  flux  to  the  total  thrust.  From 
this  point  of  view,  therefore,  the  Langweller  concept 
departs  from  the  traditional  concept  of  an  ideal  interior 
ballistic  cycle.  The  continual  increase  in  the  pressure 
of  the  unreacted  propellant  implies  that  the  tube  must  be 
able  to  support  a value  which  is  higher  than  the  average 
value  used  to  propel  the  projectile.  In  addition,  while 
the  pressure  is  increasing,  the  total  mass  of  the  propelled 
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body,  namely  the  projectile  plus  the  unreacted  propellant, 
is  diminishing  due  to  consumption  of  the  propellant . Thus 
the  acceleration  of  the  projectile  increases  even  faster 
than  the  pressure.  In  some  cases  the  maximum  allowable 
acceleration  of  the  projectile  may  be  constrained  by  struc- 
tural considerations. 

A direct  statement  of  the  traditional  concept  of  a 
constant  base  pressure  gun  may  be  expressed  by  requiring 
that  the  pressure  on  the  unreacted  side  of  the  interface 
be  equal  to  some  predetermined  value.  Such  a condition 
then  allows  the  determination  of  all  the  boundary  values. 

If,  alternatively,  the  structural  limitations  of  the  pro- 
jectile are  of  concern,  it  may  be  desired  to  hold  the 
acceleration  equal  to  some  limiting  value.  l-Jhen  the 
propellant  is  treated  as  a rigid  body,  equation  2.3.1 
enables  the  direct  translation  of  the  condition  on  accele- 
ration into  a condition  on  the  instantaneous  value  of 
the  pressure  on  the  unreacted  side  of  the  interface  where- 
upon all  the  boundary  values  may  be  determined. 

When  the  propellant  is  treated  as  a continuum  it 
does  not  necessarily  follow  that  the  maximum  pressure 
will  occur  at  the  interface  since  transient  phenomena 
govern  the  distribution  throughout  the  unreacted  pro- 
pellant. The  pressure  on  the  unreacted  side  may  never- 
theless be  prespecified  and,  once  given,  will  allow 
the  determination  of  all  the  boundary  values. 

Similarly,  the  use  of  2.3.1,  in  the  case  when  the 
propellant  is  treated  as  a continuum,  enables  an  in- 
stantaneous value  of  the  pressure  on  the  unreacted  side 
to  be  determined.  However,  it  no  longer  follows  that 
the  acceleration  of  the  projectile  will  be  equal  to  the 
desired  value. 

Therefore,  while  we  have  encoded  the  possibility 
of  an  ideal  combustion  which  yields  either  a predetermined 
value  of  pressure  on  the  unreacted  side  or  an  equivalent 
value  based  on  equation  2.3.1  and  a prespecified  value  of 
acceleration,  it  should  be  understood  that  only  when  the 
propellant  is  treated  as  rigid  will  the  desired  ballistic 
consequence — control  of  maximum  pressure  or  of  projectile 
acceleration — be  attained  precisely.  Transient  phenomena, 
which  will  be  determined  by  a continuum  representation, 
may  defeat  the  Intended  objective  of  the  ideal  law. 

(d)  Predetermined  Mach  Number  of  Reactants  (Subsonic) 

A final  condition  which  we  have  considered  is  that  the 
Mach  number  of  the  reactants  be  equal  to  some  predetermined 
value.  Given  such  a value,  less  than  unity,  all  the  boun- 
dary values  may  be  found. 
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The  preceding  discussion  has  addressed  several  different  conditions 
which  may  be  applied,  singly,  to  complete  the  specification  of  the  boun- 
dary values  when  the  reactants  are  subsonic.  It  may  be  of  interest,  as 
already  mentioned  in  chapter  1.0,  to  consider  an  interior  ballistic 
cycle  in  which  the  combustion  is  limited  by  more  than  one  of  the  fore- 
going, the  most  limiting  being  considered  at  each  stage  of  the  cycle, 
with  branching  from  one  to  another  as  the  cycle  unfolds.  Further  dis- 
cussion of  the  manner  in  which  the  branching  is  conducted  is  given  in 
chapter  3.0. 

To  conclude  the  present  discussion  we  comment  on  the  conditions  to 
be  considered  when  the  reactants  are  supersonic  as  viewed  from  the  re- 
gressing Interface.  As  discussed  in  Appendix  A,  there  are  strong  argu- 
ments to  suggest  that  a steady  combustion  process  with  supersonic  re- 
actants cannot  occur  or,  if  it  does  occur,  is  completely  unstable. 
Possibly,  if  the  flame  is  sufficiently  thick  and  sufficiently  unsteady, 
supersonic  reactants  could  result.  In  any  case,  it  may  be  of  interest 
to  ascertain  whether  there  is  indeed  any  ballistic  benefit  to  be  gained 
from  a combustion  process  with  supersonic  reactants.  For  this  purpose 
we  have  encoded  conditions  which  do  admit  the  possibility  of  a so- 
called  strong  deflagration  wave. 

When  the  reactants  are  supersonic  it  is  no  longer  the  case  that  they 
have  to  be  compatible  with  the  flow  in  the  interior  of  the  gas.  They 
influence,  but  are  not  influenced  by  the  contiguous  fluid  as  signals  do 
not  propagate  from  the  interior  to  the  boundary  once  the  flow  at  the 
boundary  becomes  supersonic.  In  contrast  to  the  preceding  discussion  of 
the  subsonic  case,  therefore,  we  require  two  independent  conditions  to 
determine  all  the  boundary  values.  We  consider  the  two  following  com- 
binations . 


When  the  reactants  are  subsonic  and  the  Initial  state 
is  quiescent  and  uniform,  the  ideal  combustion  of  Langweiler 
involves  the  single  requirement  u = 0 whereupon  the  condi- 
tion of  compatibility  on  Ig'*’  yields  p = Pg,p  where  Pg.p  is 
the  initial  pressure  of  the  quiescient  gas  column.  When  the 
reactants  are  supersonic,  members  of 
cept  the  regressing  surface  and  the 
not  imply  P = necessarily.  However  we  may  require 
p = pg.j.  as  an  independent  condition  on  the  supersonic  reac- 
tants. Thus  in  the  supersonic  case,  the  ideal  burning  of 
Langweiler  is  described  by  two  conditions  u = 0 and  p = Pg^ 
whereupon  all  the  boundary  values  may  be  determined  and, 
moreover,  the  gas  column  remains  quiescent. 


Acceleration  of  Projectile  (With  Supersonic  Reactants) 


The  previous  discussion  of  this  case  subject  to  sub- 
sonic reactants  remains  unchanged  Insofar  as  the 


r no  longer  inter- 
condition  u = 0 does 
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relationship  between  the  pressure  and  the  acceleration 
limitations  is  concerned.  Therefore  we  predicate  our 
subsequent  discussion  on  the  assumption  that  the  pressure 
on  the  unreacted  side  Is  predetermined.  To  complete  the 
determination  of  the  boundary  values  we  require  an  addi- 
tional relationship  which  replaces  the  condition  of  com- 
patibility on  We  assume  that  this  condition  is 

furnished  as  a predetermined  value  of  the  Mach  number 
M ^ 1.  It  should  be  noted  therefore  that  this  case 
does  not  require  the  regularity  of  the  gas  phase  pro- 
perties which  results  from  the  continuation  of  the 
Langweller  combustion  into  the  supersonic  regime. 

2,6  Initial  Conditions 


The  initial  values  for  these  quantities  governed  by  ordinary  dif- 
ferential equations  are  the  intuitively  natural  set.  The  projectile 
is  initially  at  rest,  its  position  is  known,  and  the  propellant  has  some 
predetennined  initial  mass.  In  cases  when  parametric  studies  are  to  be 
performed,  it  may  be  desirable  to  compute  these  initial  values  so  as  to 
satisfy  certain  system  constraints.  In  many  cases  of  interest  it  is  de- 
sirable to  assume  that  the  ignition  charge  is  of  sufficient  energy  as 
to  elevate  the  chamber  pressure  to  several  hundred  MPa,  the  initial 
pressure  being  equal  to  the  maximum  pressure.  In  such  cases,  the  con- 
tribution of  the  igniter  to  the  total  mass  and  energy  of  the  propelling 
charge  may  be  significant  and  must  be  accounted  for  in  a parametric 
study  based,  say,  on  a constant  ratio  of  charge  mass  to  projectile  mass. 
We  therefore  note  some  relationships  among  the  charge  parameters  which 
are  useful  in  describing  the  initial  conditions  according  to  various 
alternative  schemes.  The  schemes  admitted  by  the  code  are  described  in 
Appendix  B. 


Let  the  initial  volume  of  the  gas  be  V = where  x^  is  the 

length  of  the  column  at  the  Initial  instant.  Let  pgip  be  the  initial  pres 
sure.  Let  m™  and  nip  be  the  initial  masses  of  the  gas  and  the  solid  pro 
pellant  and  let  W be  8he  charge  to  projectile  mass  ratio.  If  we  assume 
that  the  ignition  gas  is  of  the  same  composition  as  the  propellant  and 
that  it  has  been  fully  decomposed  without  the  performance  of  external 
work  or  heat  loss,  its  internal  energy  will  be  the  energy  of  bonding  ep. 
Thus  we  have 

m = Vp  = — 2.6.1 

®o  (Y  - + b 

^ST 


Therefore  the  following  relationship  holds  between  the  mass  of  the  pro- 
jectile and  the  total  mass  of  the  propelling  charge 


Wi  = m 
P P, 


+ 


(Y  - 1)  P 
P, 


+ b 


ST 


2.6.2 
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When  an  ideal  burn  rate  is  used  such  that  the  regression  rate  ,is  zero 
at  the  initial  instant,  the  initial  acceleration  a is  given  by 


a 


\^oPsT 

M + m 
P P 


2.6.3 


provided  that  the  propellant  is  viewed  as  rigid.  Substitution  of  2.6.3 
into  2.6.2  yields  a formula  which  relates  the  initial  pressure  to  given 
values  of  a and  W,  namely 


where 


K 


1 


yg 


+ (y  - l)ep 


ab 

'S.So 


(1  + W)H 

P 


K. 


e M(1  + W) 


It  should  be  kept  in  mind  that  2.6.1  and  2.6.4  which  depend  on  the  assump- 
tion that  the  initial  energy  of  the  gas  is  equal  to  ep  are  only  strictly 
true  when  the  regression  rate  is  initially  zero,  as  will  be  clear  from 
the  subsequent  discussion  of  the  continuum  variables. 


In  principle,  the  initial  conditions  for  the  continuum  variables 
should  express  the  state  of  the  combustion  chamber  and  the  solid  pro- 
pellant directly  after  loading  into  the  gun.  That  is  to  say,  the  gas 
should  be  air  at  ambient  temperature  and  pressure,  the  propellant  should 
be  at  ambient  pressure,  and  both  should  be  at  rest.  The  model  should 
then  reflect  the  influence  of  the  igniter  products  which  simultaneously 
pressurize  the  chamber  and  provide  a thermal  stimulus  to  the  propellant. 
However,  the  present  model  does  not  reflect  explicitly  the  influence  of 
the  igniter.  The  characteristics  of  the  igniter  are  taken  to  be  em- 
bedded directly  into  the  initial  conditions. 

In  those  cases  in  which  the  propellant  is  taken  to  have  a non-zero 
burning  rate  at  the  initial  instant,  either  due  to  a prespecified  pres- 
sure dependent  burning  rate  or  as  a consequence  of  satisfying  the  pre- 
determined condition  on  the  pressure  on  the  unreacted  side  of  the  inter- 
face, the  initial  velocity  distribution  in  the  gas  is  taken  to  vary 
linearly  from  the  value  zero  in  the  breech  to  the  value  determined  on 
the  fully  reacted  side  of  the  interface.  This  provision  eliminates  the 
necessity  for  dealing  with  a non-analytic  initial  condition.  The  pres- 
sure and  density  are,  however,  uniform  and  are  taken  to  be  equal  to  the 
boundary  values  on  the  reacted  side  of  the  interface. 

The  solid  propellant  is  always  taken  to  be  at  rest.  However,  when 
wall  friction  is  considered  we  assume  that  the  initial  distribution  of 
pressure  is  such  as  to  satisfy  the  condition  of  mechanical  equilibrium. 
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Then  if  a is  the  value  at  the  unreacted  side  of  the  interface,  the  pres- 
sure within  the  propellant  is  given  by  the  distribution 

a(x)  = oexp  {-  -^(x  - x )}  2.6.5 

D p 

where  y is  the  coefficient  of  friction  corresponding  to  Up  = 0.  This 
initial  distribution  reflects  the  possibility  of  lockup  of  the  charge 
when  its  aspect  ratio  is  sufficiently  large. 


The  initial  length  of  the  solid  propellant  depends  on  the  distri- 
bution of  pressure.  Evidently  we  have  the  relation 


2.6.6 


where  pp  is  assumed  to  be  related  to  o according  to  the  nominal  loading 
curve  2.4.5.  The  length  is  determined  Iteratively  using  a midpoint 
search  so  that  more  complicated  constitutive  data  can  be  accommodated 
without  changing  the  method. 
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3.0  METHOD  OF  SOLUTION 


Having  summarized  the  governing  equations  for  the  model,  we  turn  now 
to  the  method  of  solution.  The  method  of  solution  may  be  summarized  as 
follows.  The  physical  domain  occupied  instantaneously  by  the  gas  is  mapped 
onto  a unit  line  to  yield  a stationary  equally  spaced  mesh  for  the  pur- 
pose of  obtaining  a finite  difference  solution  of  the  balance  equations. 

The  same  is  true  of  the  domain  occupied  by  the  solid  propellant  when  it 
is  represented  as  a continuum.  In  each  case  the  solution  is  advanced  in 
time  by  means  of  a two  level  predictor/corrector  algorithm  which  uses  the 
physical  balance  equations  at  the  interior  mesh  points  and  the  charac- 
teristic forms  at  the  boundaries. 

The  mesh  allocation  algorithm  is  described  in  section  3.1  and  the 
computational  form  of  the  equations  is  described  in  3.2.  The  procedures 
for  interior  and  boundary  mesh  points  are  described  in  sections  3.3  and 
3.4  respectively.  The  chapter  concludes  with  a discussion  of  special 
considerations,  such  as  the  treatment  at  burnout,  in  section  3.5. 

3.1  Mesh  Allocation 

The  mesh  is  allocated  dynamically,  the  number  of  mesh  points  varying 
from  time  to  time  in  accordance  with  the  following  algorithm.  The  user 
specifies  two  parameters  which  we  refer  to  by  their  Fortran  names,  see 
Appendix  B,  namely  DXMIN,  the  minimum  allowable  mesh  spacing  in  the  phy- 
sical plane,  and  MAXDDI,  the  maximum  allowable  total  number  of  mesh 
points  to  be  used  in  the  calculation.  Then  a total  of  NDIM  mesh  points 
is  allocated  to  the  representation  of  the  gas  and  a total  of  NDIM2  -NDIM 
mesh  points  is  allocated  for  the  representation  of  the  propellant,  if  it 
is  treated  as  a continuum.  The  allocation  is  subject  to  the  following 
constraints. 

3.1.1 


X - X 

.P E_ 


NDIM2  - NDIMl 


> DXMIN 


3.1.2 


where  NDIMl  = NDIM  + 1,  and  the  total  number  NDIM2  is  required  to  satisfy 


NDIM2  < MAXDIM 


3.1.3 


If  the  propellant  is  not  treated  as  a continuum,  3.1.2  is  not  used  and 
3.1.3  is  replaced  by  NDIM  < MAXDIM.  In  addition,  it  is  required  that 
each  continuum  region  be  sufficiently  large  that  3.1.1  and  3.1.2  will 
admit  at  least  three  mesh  points . 

When  the  propellant  becomes  so  short,  as  a consequence  of  burning, 
that  3.1.2  will  no  longer  admit  three  or  more  mesh  points  for  its  repre- 
sentation, the  code  automatically  resets  an  internal  switch  and  the  cal- 
culation is  concluded  with  the  propellant  treated  according  to  a lumped 
parameter  formulation.  Further  discussion  of  this  point  is  given  in 
section  3.5. 
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The  constraints  3.1.1  and  3.1.2  are  used  first  to  establish  a total 
number  of  mesh  points  to  yield  a resolution  DXMIN.  If  3.1.3  is  satisfied, 
the  values  NDIM,  .NDIM2  given  by  3.1.1  and  3.1.2  are  used  to  represent  the 
solution.  If  3.1.3  is  violated,  the  total  number  MAXDIM  is  allocated  on 
a pro  rata  basis  in  accordance  with  the  numbers  proposed  by  3.1.1  and 
3.1.2. 

The  mesh  allocation  algorithm  is  exercised  at  the  beginning  of  each 
integration  step.  From  time  to  time  the  total  number  of  mesh  points  al- 
located to  a region  may  vary.  It  then  becomes  necessary  to  interpolate 
the  existing  arrays  in  order  to  create  the  new  representation  of  the 
solution. 

We  use  the  cubic  spline  interpolation  scheme  of  Walsh  et  al^^,  sim- 
plified to  take  advantage  of  the  fact  that  the  data  are  equally  spaced. 

Let  (t>(x)  be  the  interpolating  function  for  data  y^  = y(xj),,  j = 1,.  . . ,n 
and  - Xj  = d where  d is  a constant.  Let  pj  = ())"(xj)  , then  we  have 

the  interpolation  formula 

(}i(x)  = {(x  - - x)yj}/d  3.1.4 

- (x  - Xj)(Xj^^  - x){(d  + Xj^^  - x)p^  + (d  + X - x^)Pj^^}/6d 

One  may  show  that  if  we  take  = 1 and  put 

Sj  - 1 - 1/(165  3.1.5 


then,  defining  z^'  = and  putting 

"j'  ■ "j  - ^ ^ ' 

j-2 

the  values  of  p . follow  as  p^  = p =0  and 
J 1 n 


%-l  " ^n-l^®n-2 


3.1.6 


3.1.7 


3.1.8 


1^ 

4 


3.1.9 


^^Walshi  J.  L.y  Ahlherg^  J.  H.  and  NilsoUj  E.  N.,  ’'Best  Approximation 
Properties  of  the  Spline  Fit” 


J.  Math.  Meah.  21^  225-234  1962 
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3.2  Transformed  Equations 

Taking  the  origin  to  be  at  the  breech  it  follows  that  the  gas  may 
be  mapped  onto  a unit  line  by  the  transformation 


C = x/x„ 


3.2.1 


It  follows  that  the  balance  equations  must  be  transformed  according  to 
the  rules 


3x 


A.  Jl 

X 3? 

P 


3t  3t 


X 


_3_ 


3.2.2 


3.2.3 


We  also  note  that  for  arbitrary  tp 


= _L  _ JQ_  M . _P 


i-'k  -IT If  ■ ^ X 

p ■ p ^ p ^ p 


3.2.4 


and  where  we  have  introduced  n = ?x. 


We  now  introduce  the  dependent  variables 


G = px  3.2.5 

1 p 

G„  = G.u  = pux  3.2.6 

2 1 p 

G3  = G^(e  + u^/2g^)  = pXp(e  + u^/2g^)  3.2.7 

The  transformed,  or  computational,  form  of  the  balance  equations  2.1.1, 
2.1.2  and  2.1.3  is  then  seen  to  be  as  follows. 


3 ^1 

-^^^[^(u-n)]  = 0 


^^2  3 ^2 

“sF  t IT  + SoP^ 


= 0 


^^3  3 ^^3 


■V. 


3.2.8 


3.2.9 


3.2.10 


The  balance  equations  for  the  solid  propellant  can  be  put  into  a form 
analogous  to  3.2.8  and  3.2.9.  However,  because  of  the  differential 
constitutive  law  2.2.3,  it  is  convenient  to  keep  the  total  time  derivative 
of  pp  isolated.  The  computational  form  of  the  equations  2.2.1,  2.2.2 
and  2.2.3  is  as  f ol lows . 


3p„  P^  3u 

_E  — E + _E 

X 3c  X - X 3^ 

P P P 


= 0 


3.2.11 
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3u 

_E 
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3.2.12 
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3.2.13 


where,  by  analogy  with  3.2.1,  we  have  ^ = (x  - 

n. 
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3.3  Integration  at  Interior  Mesh  Points 


The  balance  equations  for  the  gas  phase  are  integrated  at  interior 
mesh  points  using  the  two-level  predictor/corrector  scheme  of  MacGormacfc^^ . 
Let  be  understood  to  mean  the  value  of  at  the  j-th  mesh  point  and 
the  n-th  step  of  the  integration.  Then  3.2.8,  3.2.9,  3.2.10  are  put  into 
a finite  difference  form  according  to  the  following  Tules  of  discretization. 


- 1/2(3;^  + ,J^"))/(at/2) 

and 


((♦J+i  - 
% - 


, predictor 


, corrector 


, predictor 


, corrector 


3.3.1 


3.3.2 


where  Ac  is  the  nondimensional  mesh  spacing  in  the  computational  plane 
and  At  is  the  time  step  through  which  the  solution  is  being  advanced.  The 
substitution  of  3.3.1  and  3.3.2  into  3.2.8,  3.2.9,  3.2.10  at  the  predictor 
level  yields  a system  of  linear  algebraic  equations  for  the  predictor 
quantities  IJij  . Then  the  corrector  level  of  the  scheme  is  performed  to 
yield  the  values 

Somewhat  different  rules  are  used  to  perform  the  discretization  of 
3.2.11,  3.2.12  and  3.2.13.  The  rules  for  the  time  derivatives  are  as  ex- 
pressed by  3.3.1.  However,  first  order  upstream  differencing  is  always 
used  for  the  convective  terms  and  the  remaining  spacewise  derivatives  are 
treated  by  centered  differencing.  That  is 
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(u  -'n_) 


8iJj 


P 'P'  8? 


(>l^j  - ii'j_^)/Ac  If  Up  - rip  2 0 


3.3.3 


at  both  predictor  and  corrector  levels.  But 

^ = h±l-Lhzl  ' 3 3 4' 

applies  to  3up/3?  in  3.2.11  and  to  3a/3i;  in  3.2.12  at  both  predictor  and 
corrector  levels. 


We  also  note  that  the  rule  expressed  by  3.3.1  serves  to,  define  an 
algorithm  for  the  integration  of  the  ordinary  differential  equations  such 
as  2.3.1,  for  example. 


In  order  to  assure  stability  of  the  method  it  is  necessary  that  the 
time  step  be  constrained.  This  point  is  discussed  in  section  3.5. 

3.4  Integration  at  Boundary  Mesh  Points 

The  algorithms  for  the  boundary  points  may  be  summarized  in  the  fol- 
lowing general'  form.  The  conditions  of  compatibility  on  those  charac- 
teristic lines  which  intersect  both  the  boundary  and  the  line  bearing  the 
data  at  the  present  step  are  used  to  determine  linear  relationships  be- 
tween the  boundary  values  of  velocity  and  pressure  and  between  the  boun- 
dary values  of  density  and  pressure.  These  linear  relationships  are 
combined  with  the  physical  boundary  conditions  and  the  combination  is 
then  solved  as  a possibly  nonlinear  algebraic  system,  the  method  of  solu- 
tion varying  in  complexity  in  accordance  with  the  nature  of  the  boundary 
conditions. 

We  first  Indicate  the  manner  in  which  the  characteristic  forms  of 
the  equations  are  used  to  establish  linear  relationships  among  certain 
of  the  boundary  values,  taking  the  gas-permeable  breech  as  an  example. 

The  procedure  at  other  boundaries  is  completely  analogous.  Subsequently, 
we  will  consider  the  impact  of  the  physical  boundary  conditions,  pro- 
ceeding case  by  case  through  a number  of  subsections. 


The  sketch  below  illustrates  the 


^ Ax  H 


conditions  pertinent  to  the  subsonic 
efflux  of  gas  through  the  breech  and 
is  expressed  in  terms  of  the  physical 
coordinate  x.  The  point  1 is  under- 
stood to  correspond  to  the  state  of 
the  boundary  at  the  next  step  of  the 
integration.  The  points  2 and  3 cor- 
respond to  the  boundary  and  the  ad- 
jacent mesh  point  at  the  present  step. 
The  point  5 corresponds  to  the  inter- 
section with  the  line  of  present  data 
of  the  characteristic  Tg”  which  also 
intercepts  the  point  1.  Similarly, 
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r the  material  characteristic  Intercepts  the  boundary  at  1 and  the 
line  of  present  data  at  4.  If  the  boundary  were  Impermeable  the  point  4 
would  coincide  with  2.  If,  on  the  other  hand,  the  efflux  were  suffi- 
ciently Intense  as  to  become  supersonic,  there  would  also  be  a member 
of  the  family  r which  would  have  an  intersection  with  1 and  the  segment 
2-3.  ^ 

Knowing  Ax  and  At,  the  points  of  intersection  4 and  5 are  deduced 
using  2.1.10  and  2.1.8  respectively,  with  the  values  of  u and  c deter- 
mined at  2 on  the  predictor  level  and  at  1 on  the  corrector  level,  the 
values  in  the  latter  case  following  from  the  predictor  level  solution. 

The  conditions  of  compatibility  2.1.9  and  2.1.11  are  Interpreted  as 
finite  difference  formulae  with  the  state  variables  evaluated  at  1 and  5 
or  at  1 and  4 as  the  case  may  be.  The  values  of  p,  p,  u at  4 and  5 are 
deduced  from  the  values  at  2 and  3 by  linear  Interpolation.  The  coeffi- 
cients of  the  differential  terms  in  2.1.9  are  evaluated  as  averages  of 
the  values  at  2 and  5 on  the  predictor  step  and  1 and  5 on  the  corrector 
step.  A similar  procedure  is  followed  in  the  case  of  equation  2.1.11. 

No  Iteration  is  Involved. 

From  this  analysis  it  is  easy  to  see  that  2.1.9  will  yield  a linear 
relationship  of  the  form 

p=au+3  3.4.1 

Similarly,  2.1.11  will  yield  a relationship  of  the  form 

p = 0p  + (j)  3.4.2 

where  p,  u,  p are  all  understood  to  be  values  at  1.  Equation  3.4.2 
remains  valid  if  the  boundary  becomes  Impermeable  but  may  not  be  used  if 
the  flow  corresponds  to  Influx.  Similarly,  3.4.1  may  be  supplemented 
by  a second  such  relationship  if  the  efflux  becomes  supersonic  and  two 
acoustic  characteristics  intercept  the  boundary  from  the  interior.  We 
note  that  in  such  a case,  therefore,  p and  u are  completely  determined 
as  the  solution  of  the  two  linear  equations.  On  the  other  hand,  if  the 
state  corresponds  to  a supersonic  influx,  then  3.4.1  may  not  be  used  at 
all;  acoustic  waves  no  longer  reach  the  boundary  from  the  interior  of 
the  flow.  All  these  possibilities  will  be  exercised  in  the  subsequent 
discussion  of  the  physical  boundary  conditions. 

Our  comments  thus  far  have  pertained  specifically  to  the  gas. 
Perfectly  analogous  considerations  apply  to  the  solid  propellant.  For 
future  reference  we  state  the  characteristic  forms  as 

a=au+3  3.4.3 

P P P 

corresponding  to  a member  of  r or  r and 

P P 

p •=  0 o + d)  3.4.4 

P P P 

which  corresponds  to  a member  of  Fp^.  In  the  present  study  we  shall  be 
concerned  only  with  boundary  conditions  which  express  either  imperme- 
ability to  the  solid  propellant  or  subsonic  efflux. 
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3.4.1  Breech  (Closed  or  Open) 


I'Then  the  breech  is  closed,  the  physical  boundary  condition  2.5.1 
yields  u = 0 directly.  Then  the  pressure  follows  directly  from  a con- 
dition of  compatibility  in  the  form  3.4.1  and  the  density  from  3.4.2. 

The  solution  is  therefore  complete. 

If  the  breech  is  open  and  the  efflux  is  supersonic,  then  as  noted 
above,  p and  u follow  from  the  two  relations  of  the  form  3.4.1  cor- 
responding to  the  two  acoustic  characteristic  intersections.  The  density 
follows  from  3.4.2.  Before  the  solution  can  be  accepted  it  is  necessary 
to  test  that  the  mass  flux  does  not  exceed  m*  given  by  equation  2.5.2. 

If  the  value  m*  is  exceeded,  or  if  the  flow  is  subsonic,  the  efflux  is 
required  to  be  as  given  by  2.5.2  and  the  condition  of  compatibility 
on  the  characteristic  Fg'*’  is  not  applicable.  The  boundary  values  are 
found  iteratively,  using  a midpoint  search. 

3.4.2  Projectile  Base  and  Muzzle  Following  Projectile  Exit 

At  the  projectile  base,  whether  we  are  concerned  with  the  continuum 
response  of  the  solid  propellant  or  with  the  behavior  of  the  gas  fol- 
lowing burnout,  the  condition  2.5.5  or  2.5.6  yields  the  velocity.  Then 
the  pressure  follows  from  3.4.1  or  3.4.3,  as  the  case  may  be,  and  the 
density  from  3.4.2  or  3.4.4.  The  projectile  velocity  X is  always  up- 
dated prior  to  the  determination  of  the  boundary  values? 

The  analysis. of  the  boundary  values  at  the  muzzle  following  ex- 
pulsion of  the  projectile  is  completely  analogous  to  that  pertaining  to 
the  open  breech. 

3.4.3  Gas/Propellant  Interface 

We  consider  several  possible  cases  in  accordance  with  the  manner 
of  specification  of  the  burn  rate.  The  discussion  given  for  each  case 
is  predicated  on  the  assumption  that  the  solid  propellant  is  treated  as 
rigid  so  tha:t  its  density  is  known  as  a constant  value  and  its  velocity, 
equal  to  that  of  the  projectile,  is  given  according  to  an  update  of  the 
equation  of  motion  2.3.4.  Therefore,  we  preface  the  analysis  of  each 
case  by  commenting  on  the  consequences  of  a continuum  representation 
of  the  solid  propellant . In  the  event  that  the  propellant  is  to  be 
treated  as  a continuum  we  are  required  to  satisfy  two  conditions  of 
compatibility  of  the  form  3.4.3  and  3.4.4.  This  is  accomplished  ite- 
ratively as  follows. 

A trial  value  for  Up  is  proposed,  based  on  current  storage  for  the 
boundary  values  on  the  unreacted  side  of  the  Interface.  Compatible 
values  a and  pp  are  deduced  from  3.4.3  and  3.4.4.  The  values  of  Up  and 
Pp  are  used  together  with  the  remaining  boundary  conditions  to  determine 
consistent  values  for  the  state  of  the  gas  and  also  the  pressure  o'  . 

The  latter  value  will  not,  in  general  be  equal  to  a.  Accordingly,  the 
proposed  value  of  Up  is  modified  by  an  amount  Aup  = (a-  - a)/ap,  a is 
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replaced  by  the  now  compatible  value  o'  and  Pp  is  similarly  adjusted. 

This  procedure  is  continued  until  the  pressure  a changes  by  an  amount 
less  than  6.9  Pa. 

Branching  from  one  condition  to  another  is  discussed  in  section  3.5. 

3. 4. 3.1  Propellant  Unreactlng 

This  case  may  arise  if,  for  example,  an  ideal  bum  rate  is  specified 
to  yield  a value  of  pressure  on  the  unreacted  side  which  is  less  than  the 
current  pressure  on  the  reacted  side.  The  ideal  rate  would  therefore 
be  negative  and  is  replaced  by  the  condition  that  the  propellant  is  not 
burning.  Given  Up,  the  value  u is  known  at  once  as  u = Up  and  the  ana- 
lysis is  identical  with  that  following  burnout. 

3. 4. 3. 2 Measured  Burn  Rate  (With  Subsonic  Reactants) 


Substitution  of  2.5.7  into  2.5.8  yields 

1] 


2 p 

^ = -E_  + ^ r _ 
Pp  Pp  ®o  P 


3.4.5 


Similarly,  substitution  of  2.5.7  into  2.5.9  yields 

^ ^ I(^)’  - 11 

Pp  p p 2g^  p 


3.4.6 


Then,  combining  3.4.5  and  3.4.6  to  eliminate  a and  making  use  of  the 
equation  of  state  2.4.1  to  eliminate  e we  have 


P bp 

p r y _E.  _ 1 _ P 

Pp  Y - 1 P Y - 1 


3.4.7 


Furthermore,  as  the  reactants  are  presumed  subsonic,  we  may  combine 
2.5.7  with  the  condition  of  compatibility  3.4.1  to  obtain 


p u + r - (p  - B)/a 

f ^ = np) 


3.4.8 


Then  3.4.8  may  be  used  to  permit  the  interpretation  of  3.4.7  as  a function 
of  p alone,  namely 

bp  2 

= f-  [ 7^  'i'(p)  - 1 - 7^  ^ - ^p  + ^ - 1 ] = 0 

P ° 3.4.9 


Equation  3.4.9  may  be  solved  iteratively  using  Newton's  method  according 
to  which  the  trial  value  p is  replaced  by  the  better  approximation 
p - $(p)/$'(p).  We  note  the  following  derivatives  which  are  required 
In  the  iterative  process. 
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3.4.10 


bp. 


1 

$'(P)  = — [ np)  - 1 - 

p 


Pp  Y - 1 


+ rMllM  [^(p)  . ii2  ^ 


'I'Vp)  = r (p)  {r(p)'  [r'(p)  - l/a]  - [u^  + r(p)  - (p  - e)/ct]  r’(p)} 

3.4.11 


Once  p is  determined  the  remaining  boundary  values  follow  from  the 
chain  of  calculations: 


u = (p  - e)/a  3.4.12 

r = r(p)  3.4.13 


P 


a 


e 


u + r - u 
P 


P + 


P(1  - bp) 
(y  - 1)P 


3.4.14 


3.4.15 


3.4.16 


As  noted  in  the  preamble  to  this  section,  if  Up  was  a trial  value,  the 
quantity  a given  by  3.4.15  must  be  compared  with  the  value  which  is  com- 
patible with  Up  according  to  3.4.3.  If  they  differ,  Up  must  be  adjusted 
appropriately  and  the  boundary  values  redetermined. 

3.4. 3. 3 Ideal,  Burning  of  Langweiler  (Subsonic  or  Supersonic  Reactants) 

In  this  case‘ the  determination  of  the  boundary  values  for  the  gas 
is  almost  trivial  since  u = 0 and  the  pressure  p is  equal  to  the  constant 
initial  value.  Only  the  density  at  the  boundary,  and  hence  the  Internal 
energy,  vary  with  time.  When  u = 0,  2.5.7  yields 

p u 

+ 1 3.4.17 

P r 

Substituting  this  result  into  3.4.7  and  rearranging  yields  the  ideal 
rate  of  burning  as  a function  of  the  instantaneous  velocity  of  the 
propellant . 


— I_  _E. 

Y - 1 P„ 

- — — ^ ^ 

e + ■ _ E _ _E_ 

p Y - 1 (Y  - l)Pp  2g^ 


3.4.18 
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Given  r,  p follows  from  3.4.17  whereupon  a and  e are  determined  by  3.4.15 
and  3.4.16  respectively. 

3. 4. 3. 4 Prespecified  Value  of  Pressure  on  Unreacted  Side  or  of 
Acceleration  of  Projectile  (With  Subsonic  Reactants) 

As  discussed  in  section  2.5.3  we  assume  that  both  of  these  conditions 
amount  to  the  same  thing,  namely  the  specification  of  a.  Substitution 
of  3.4.5  into  3.4.6  to  eliminate  r yields,  after  rearrangement 


_E I_ 

Pp  ^ 1 


e 

P 


+ -^  (1  + 

P_ 


By  combining  3.4.19  with  3.4.8  we  may  deduce 


3.4.19 


r = 


Pp(T  - 1) 


3.4.20 


This  may  be  viewed  as  an  effective  or  ideal  burn  rate  equation  yielding 
r = r(p) . Then  the  method  of  section  3. 4. 3. 2 may  be  followed  with  3.4.20 
in  place  of  the  measured  burn  rate  law. 


3. 4. 3. 5 Predetermined  Mach  Number  of  Reactants  (Subsonic) 
We  may  state  the  condition  in  the  form 
X - u 


Yg^P 


3.4.21 


p(l  - bp) 


where  M < 1 is  the  predetermined  value  of  the  Mach  number.  In  view  of 
2.5.7  this  may  be  solved  to  yield 


p Yg^pM 

-f  ■ “pf  ” — r? 

p r 
P 


3.4.22 


Moreover,  combining  3.4.22  with  3.4.8  we  may  deduce  an  effective  burn 
rate  law,  r = r(p) 


P - 6 

i - u + 

a p 


n R 7 7 

(£_  _ ^ Yg^pM 


1/2 


r = 


2(1  - bPp) 


3.4.23 


Then  the  analysis  of  3.4. 3. 2 applies  with  r defined  by  3.4.23. 
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3. 4. 3. 6 Prespecified  Value  of  Pressure  on  Unreacted  Side  or  of 
Acceleration  of  Projectile  (With  Supersonic  Reactants) 

In  this  case  3.4.22,  which  expresses  the  additional  requirement  that 
the  Mach  number  M > 1 of  the  reactants  be  given,  may  be  combined  with 

3.4.5  to  yield 

r(p)  . 1 ° - <1  ±-A  1^/^  3.4.24 

p bp  - 1 ^ 

P P 

as  an  effective  burn  rate  law.  However,  In  making  use  of  the  analysis 
of  section  3.4. 3.2  it  is  necessary  to  use  not  only  3.4.24  to  define  r(p) 
but  also  3.4.22  to  define  4'(p).  The  expression  3.4.8  incorporates  the 
assumption  that  u and  p are  compatible  with  the  interior  flow  of  the  gas 
which  is  no  longer  true  in  this  case.  Moreover,  following  the  determi- 
nation of  p,  it  is  necessary  to  deduce  p from  3.4.22  whereupon  u follows 
from  3.4.14. 

3.5  Additional  Considerations 


We  conclude  this  chapter  by  noting  some  additional  considerations 
relating  to  the  method  of  solution. 

3.5.1  Choice  of  Time  Step 

As  is  well  known^^,  explicit  finite  difference  schemes  demand,  for 
their  nvimerical  stability,  that  the  time  step  be  suitably  constrained. 

We  constrain  At  according  to  the  Courant-Friedrichs-Lewy  (C-F-L) 
condition 

X Ac 

2 

u - n 

where  A?  is  the  nondimens ional  mesh  spacing  in  the  gas,  and  by  a similar 
relation  expressed  in  terms  of  the  properties  of  the  propellant  when  it, 
too,  is  treated  as  a continuum. 

The  maximum  allowable  value  of  At  thus  defined  is  further  divided 
by  a user-supplied  safety  factor,  SAFE,  which  must  be  equal  to  at 
least  one. 

3.5.2  Treatment  at  Burnout 

If  the  combustion  zone  is  represented  as  a discontinuity  of  infini- 
tesimal thickness,  it  follows  that  the  boundary  value  of  the  velocity  of 
the  gas  will  undergo  a sudden  jump  as  burnout  occurs.  The  flow  which 
will  have  been  represented  as  blowing  away  from  the  base  of  the  projec- 
tile will  now  be  required  to  follow  it.  If  the  Mach  number  of  the 
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3.5.1 
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reactants,  just  prior  to  the  instant  of  burnout,  was  comparable  to  unity, 
the  sudden  change  in  velocity  will  be  accompanied  by  a sharp  drop  in 
pressure-  A strong  rarefaction  will  be  formed  to  communicate  the  change 
in  the  boundary  condition  to  the  column  of  gas.  Indeed,  the  sudden  drop 
in  pressure  may  be  sufficiently  large  as  to  strain  the  numerical  method 
of  solution.  Therefore,  we  employ  an  analytical  solution  to  describe 
the  boundary  values  for  a short  period  after  burnout.  The  analysis  also 
provides  a simple  exact  solution  which  toay  be  used  to  benchmark  the  ac- 
curacy of  the  program,  as  we  discuss  in  chapter  4.0.  We  therefore  de- 
duce the  solution  in  some  detail  before  commenting  on  its  application  to 
the  determination  of  the  boundary  values  in  the  computer  program. 


Consider  the  motion  of  a piston  propelled  by  a semi-infinite  column 
of  gas  which  is  initially  at  rest  and  has  uniform  properties.  At  any 
subsequent  time,  the  gas  may  be  divided  into  two  regions,  one  still  qui- 
escent and  uniform,  and  the  other  undergoing  expansion  to  follow  the 
projectile.  A flow  of  this  type  is  called  a simple  wave®  . If  we  assume 
the  piston  to  be  moving  to  the  right,  it  follows  that  all  characteristics 
of  the  family  Fg'*’  emanate  from  the  uniform  region  so  that  their  corres- 
ponding condition  of  compatibility  is  impressed  uniformly  on  the  flow. 

We  therefore  have,  throughout  the  expansion  region 


constant 


3.5.2 


Using  the  covolume  equation  of  state  to  perform  the  thermodynamic  integral 
and  denoting  the  properties  of  the  quiescent  region  by  a subscript  1 we 
have 


u + — j Y (1  - bp)c  = ^ I ^ (1  - bp^)c^ 


3.5.3 


This  relation  applies,  in  particular,  at  the  base  of  the  piston  where 
u = X . Moreover,  the  isentropic  nature  of  the  flow  implies 


-E-  = r - bp)c  ,Y-1 


3.5.4 


Combining  3.5.3  and  3.5.4  yields  the  base  pressure  as  a function  of  the 
velocity  of  the  piston 


P 


Pi  f ^ 


1 X — V 

Y E lY-l 

2 (1  - bp  )c  J 


3.5.5 


From  the  equation  of  motion  of  the  projectile  it  is  a simple  matter 
to  deduce  the  following. 


P Y - 1 


X _iii  _x:± 

1 - [(1  - ‘o’! 

1 Ip 

3.5.6 


46 


X 

p 


Y - 1 

- [(1  - 


o 2 c 


!o,-7^ 


Y - 1 
2 


Y+1 


Y-+.1 


—O)  Y-1  + 

c/  2c  ' 

1 1 


M 


^ (t  - t ] 

o 


3.5.7 

It  should  be  noted  that  we  have  taken  the  initial  instant  to  be  to  and 
we  have  denoted  the  initial  position  and  velocity  of  the  piston  by  Xp^ 
and  Xp^  respectively.  Also,  we  have  used 


c^’  = (1  - bp^)c^ 


3.5.8 


The  relations  3.5.6  and  3.5.7  with  Xp  = 0 provide  an  exact  solution 
which  may  be  used  to  benchmark  the  accuracy  of  the  computer  program. 

Since  the  code  must  be  exercised  with  a finite  column  of  gas,  the  com- 
parison will  only  be  valid  until  such  a time  as  the  reflection  of  the 
expansion  front  from  the  breech  overtakes  the  piston  or  projectile. 


When  the  ideal  combustion  of  Langweiler  has  been  in  effect  up  to 
the  instant  of  burnout,  the  gas  is  quiescent  as  assumed  above.  Then 
3.5.5  may  be  used  to  determine  the  boundary  value  of  pressure.  We  note 
that  if,  at  the  Instant  of  burnout  we  have  a near  sonic  condition 
Xp  = C]^ ' and  Y = 1.2,  then  p/p]^  = 0.282  so  that  the  pressure  drops  in- 
stantaneously to  28%  of  its  value  prior  to  burnout.  This  implies  a 
sharp  drop  in  the  propulsive  capacity  of  the  gas  which  is  exacerbated 
by  the  fact  that  prior  to  burnout,  propulsion  was  due  not  just  to  p^ 
but  also  to  the  contribution  of  thrust. 

When  the  combustion  is  due  to  other  than  the  ideal  model  of  Langweiler, 
the  state  of  the  gas  adjacent  to  the  projectile  at  burnout  is,  in  general, 
neither  uniform  nor  quiescent.  We  nevertheless  use  3.5.5,  where  p^  and 
c;!^  are  predicated  on^the  conditions  at  the  boundary  just  prior  to  burn- 
out, and  we  replace  Xp  by  Xp  - where  u;i^  is  the  velocity  of  the  gas  just 
prior  to  burnout. 

In  all  cases,  equation  3.5.5  is  used  to  determine  the  boundary  value 
of  pressure  for  five  integration  steps  following  burnout.  Thereafter, 
the  previously  described  numerical  algorithm  is  used. 

3.5.3  Change  of  Representation  of  Solid  Propellant 

As  the  solid  propellant  is  consumed,  it  will  reach  a point  at  which 
it  is  too  short  to  be  treated  as  a continuum  in  accordance  with  the  con- 
straint (Xp  - Xp)A^  > DXMIN  on  the  mesh  spacing  A?.  At  this  point,  if  a 
continuum  representation  had  been  elected,  an  internal  switch  is  reset 
and  the  calculation  concludes  with  the  propellant  treated  as  rigid.  A 
value  of  the  density  is  computed  from  a knowledge  of  the  remaining  mass 
of  propellant  and  its  length.  Friction  between  the  propellant  and  the 
wall  is  not  treated  in  cases  in  which  the  propellant  is  initially  taken 
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to  be  rigid.  When  a transformation  from  a continuum  to  a rigid  repre- 
sentation is  made,  near  burnout,  the. resistance  per  unit  bearing  area 
due  to  friction  is  frozen  at  the  value  it  had  at  the  time  of  transition. 

3.5.4  Treatment  of  Friction  Between  Propellant  and  Tube  Wall 

The  friction  term,  when  taken  to  be  proportional  to  pressure  in 
accordance  with  equation  2.4.9,  with  values  of  ~ 0.1,  becomes  very 
large  and  tends  to  create  numerical  wiggles  in  the  solution.  A number 
of  different  schemes  were  attempted  in  order  to  resolve  this  problem. 
Indeed,  the  use  of  centered  differencing  rather  than  the  alternating 
scheme  of  MacCormack,  in  the  Integration  of  the  momentum  equation  of 
the  propellant,  was  predicated  on  the  desire  to  express  as  accurately 
as  possible  the  competition  between  9a/ 9x  and  f^,  at  both  predictor  and 
corrector  levels.  Possibly,  calculations  with  values  of  as  large  as 
0.1  will  not  be  of  Interest  since  the  ballistic  loss  will  be  seen  to  be 
significant,  at  least  in  the  sample  cases  described  in  chapter  4.0. 

Nevertheless,  to  stabilize  properly  such  solutions  we  have  smoothed 
the  term  f^.  In  the  numerical  evaluation  of  equation  2.4.9  the  pres- 
sure is  expressed  as  (Pj_i  + Pj+2  internal  mesh  points  and  as 

an  average  of  the  boundary  value  with  its  neighbor  at  boundary  points. 
Also,  the  expression  for  f^  is  made  implicit  in  the  pressure  at  the  boun- 
daries when  using  the  characteristic  forms.  That  is  to  say  the  term  f^ 
is  multiplied  by  Pj^/P2  the  nomenclature  of  section  3.4  prior  to  making 
use  of  the  characteristic  form  3.4.3. 

3.5.5  Branching  of  Conditions  at  the  Gas/Propellant  Interface 

As  we  have  noted  previously,  the  program  is  structured  so  as  to 
allow  the  combustion  model  to  vary  in  nature  as  the  ballistic  cycle 
unfolds.  Our  purpose  in  this  concluding  section  is  to  state  the  rules 
according  to  which  the  internal  branching  has  been  structured.  The 
following  are  the  combinations  of  constraints  which  may  be  Involved 
during  a given  cycle. 

(a)  Measured  Burn  Rate/Mach  Number  Limit 


If  measured  burn  data  are  supplied,  a search  is  made  for  boundary 
values  based  on  these  data.  The  values  so  found  are  then  tested  to 
ensure  that  the  Mach  number  of  the  reactants  does  not  exceed  the  limit 
M,  provided  M > 0.  If  M is  exceeded  or,  if  the  search  for  boundary 
values  based  on  the  measured  burn  rate  was  unsuccessful,  branching  oc- 
curs to  determine  values  which  yield  the  specified  value  of  M. 

This  combination  is  limited  to  subsonic  combustion,  that  is,  M < 1. 
If  the  measured  data  yield  a Mach  number  greater  than  unity  and  the  user 
has  specified  M = 0 or  M > 1,  the  calculation  terminates  with  an  error 
message  and  the  program  proceeds  to  the  next  case. 

(b)  Langweiler  Combustion/Mach  Number  Limit 

The  Langweiler  ideal  combustion  model  will  yield  boundary  values 
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which  are  only  limited  thermodynamically  by  the  covolume  limit  p = 1/b 
at  which  point  the  reactants  are  at  zero  temperature.  If  a value 
0 < M < 1 has  been  furnished  by  the  user,  the  boundary  values  according 
to  the  Langweiler  model  are  tested  to  ensure  that  the  Mach  number  of  the 
reactants  does  not  exceed  M.  If  it  does,  branching  will  occur  to  yield 
the  indicated  Mach  number.  It  should  be  noted  that  while  the  Langweiler 
model  will  admit  supersonic  combustion,  the  branch  to  the  Mach  number 
limit  will  be  admitted  only  if  M < 1. 

(c)  Prespecified  Propellant  Pressure  or  Acceleration/Mach  Number  Limit 

It  is  simple  to  branch  between  a constraint  on  the  pressure  on  the 
unreacted  side  of  the  interface  and  a constraint  on  the  acceleration,  as 
both  of  these  constraints  can  be  expressed  in  terms  of  the  pressure  on 
the  unreacted  side  of  the  interface.  A search  for  suitable  boundary 
values  is  undertaken.  When  they, are  found,  the  Mach  number  is  compared 
with  the  input  limit  M,  provided  M > 0.  If  M < 1 and  the  limit  has 
been  exceeded,  branching  to  the  Mach  number  limitation  will  occur.  If 
the  computed  Mach  number  and  the  input  limit  M are  both  greater  than  or 
equal  to  one,  branching  occurs  to  the  supersonic  combustion  process  to 
satisfy  both  M and  the  required  value  of  pressure  simultaneously.  The 
flow  is  no  longer  required  to  be  compatible  with  the  state  of  the  gas. 

If  the  original  search  for  subsonic  boundary  values  to  yield  the 
designated  pressure  on  the  unreacted  side  was  unsuccessful,  and  M > 0, 
branching  will  occur  to  the  Mach  number  limited  processes,  using  M 
alone  if  M < 1 and  using  both  the  designated  pressure  and  M if  M > 1. 

There  is  one  further  branch  to  be  considered  in  this  case.  If 
the  value  of  the  indicated  pressure  on  the  unreacted  side  is  less  than 
or  equal  to  the  current  pressure  of  the  gas,  the  reaction  is  assumed  to 
terminate  since  the  regression  rate  would  otherwise  be  required  to  be 
negative. 
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4.0  SOME  NUMERICAL  RESULTS 


The  model  which  we  have  described  In  chapter  2.0  admits  a large 
variety  of  possible  cases.  A systematic  exploitation  of  the  model  capa- 
city is  beyond  the  scope  of  the  present  study.  The  solutions  which  we 
discuss  in  the  present  chapter  are  intended  principally  to  demonstrate 
the  operability  of  the  computer  program  and  to  provide  an  assessment 
of  the  magnitude  of  the  errors  associated  with  the  method  of  solution. 
However,  we  also  comment  briefly  on  the  potential  magnitude  of  some  of 
the  losses  associated  with  the  end-burning  traveling  charge.  First, 
in  section  4.1,  we  consider  a case  for  which  an  exact  solution  is  avail- 
able in  order  to  provide  an  absolute  benchmark  of  accuracy.  Second,  in 
section  4.2,  we  discuss  a nominal  traveling  charge  configuration,  paying 
attention  to  properties  of  mesh  indifference  and  global  conservation  of 
mass  and  energy.  Finally,  in  section  4.3,  we  comment  on  the  losses  due 
to  friction,  heat  transfer  to  the  tube,  and  the  pressure  of  shocked  air 
in  front  of  the  projectile. 

4.1  Comparison  with  an  Exact  Solution 

In  section  3.5  we  presented  an  exact  solution  for  the  motion  of  a 
piston  propelled  by  a semi-infinite  column  of  initially  quiescent,  uni- 
form gas.  labile  the  present  model  can  only  be  used  in  the  context  of  a 
finite  tube,  its  predictions  may  be  compared  with  the  exact  solution  for 
that  period  of  time  prior  to  the  interaction  of  the  expansion  wave  with 
the  finite  boundary.  Such  a comparison  is  made  in  Table  4.1.  The  solu- 
tions were  based  on  values  D = 4.0  cm,  y = 1.239,  Af=  25.0  gm-mol/gm, 
b = 1.06  cm3/gm,  Mp  = 160  gm,  an  initial  pressure  of  551.6  MPa  and  an 
initial  temperature  of  3271®K.  The  numerical  solutions  were  deduced 
for  a tube  of  length  254  cms.  Inasmuch  as  the  speed  of  sound  in  the 
quiescent  gas  is  1.78  km/sec,  it  follows  that  equations  3.5.5  and  3.5.6 
may  be  used  to  describe  the  pressure  at  the  base  of  the  piston  and  the 
piston  velocity  for  a period  of  at  least  1.4  msec,  after  which  time  the 
wave  reflection  from  the  finite  boundary  begins  to  invalidate  the  exact 
solution. 


Table  4.1  Comparison 

of  Numerical  Solutions  with 

an  Exact  Solution 

Time 

Base  Pressure 

Piston  Velocity 

(msec) 

(MPa) 

(km/ sec) 

Exact  21  pts  100  pts 

Exact  21  pts  100  pts 

0.2 

281.8 

284.9 

281.9 

■bEI 

0.612 

0.610 

0.4 

186.1 

186.0 

186.1 

msmM 

0.970 

0.967 

0.6 

137.7 

137.8 

137.7 

1.217 

1.221 

1.217 

0.8 

108.7 

108.9 

108.7 

1.409 

1.412 

1.409 

1.0 

89.5 

89.5 

89.5 

1.564 

1.567 

1.564 

The  table  provides  a comparison  between  the  exact  solution  and 
numerical  solutions  generated  with  21  and  with  100  mesh  points.  The  agree- 
ment is  seen  to  be  very  good.  Even  with  21  mesh  points,  the  base  pressure 
is  predicted  to  within  approximately  1°A  of  the  exact  value  at  0.2  msec  and 
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to  within  less  than  0.1%  at  later  times.  With  100  points  the  error  is 
less  than  0.03%  at  0.2  msec.  As  expected,  the  results  pertaining  to  the 
piston  velocity  are  similar.  The  results  are  indicative  not  only  of 
good  absolute  accuracy  but  also  of  mesh  Indifference.  It  is  worth  noting 
that  the  expansion  is  really  very  strong.  Evidently,  due  to  the  large 
initial  pressure  and  the  relatively  low  piston  mass,  the  pressure  drops 
to  roughly  50%  of  its  Initial  value  by  0.2  msec. 

4.2  A Nominal  Traveling  Charge  Configuration 

To  illustrate  further  the  operability  of  the  computer  program  we 
now  present  a solution  for  a nominal  end-burning  traveling  charge  con- 
figuration. The  problem  of  interest  corresponds  to  a 40  mm  tube  with 
100  calibers  of  projectile  travel.  An  ideal  burning  law  is  assumed  in 
which  the  pressure  on  the  unreacted  side  of  the  gas/propellant  inter- 
face is  required  to  be  700  MPa  provided  that  the  Mach  number  of  the 
reactants  does  not  exceed  0.999.  In  accordance  with  the  logic  for  bran- 
ching which  we  have  discussed  in  the  previous  chapter,  a solution  yiel- 
ding the  requisite  pressure  will  be  sought  at  each  stage  of  the  calcu- 
lation. If  the  Mach  number  limitation  is  exceeded,  branching  will 
occur  to  yield  values  satisfying  the  limiting  value  of  the  Mach  number. 

As  the  input  value  is  less  than  unity,  the  reactants  will  be  required 
to  satisfy  a condition  of  mechanical  compatibility  with  the  column  of 
gas. 

We  first  solve  this  problem  treating  the  propellant  as  rigid. 

Three  solutions  are  generated  using  a maximum  of  21,  41,  and  81  mesh 
points  and  minimum  spacings  of  0.508,  0.254  and  0.127  cms  respectively. 
Some  aspects  of  these  three  solutions  are  compared  in  order  to  permit 
an  assessment  of  the  mesh  indifference  of  the  predictions.  We  also 
consider  the  degree  to  which  mass  and  energy  are  conserved  globally 
in  these  three  calculations  as  a further  indication  of  the  magnitude 
of  the  numerical  errors  of  integration.  Subsequently,  we  present 
some  details  of  a fourth  calculation  of  the  same  problem  based  on 
a continuum  representation  of  the  propellant.  In  this  last  case  we 
illustrate  the  solution  by  means  of  plots  of  the  pressure  and  velocity 
distributions  at  various  times. 

The  data  base  for  the  nominal  problem  is  contained  in  Table  4.2. 

The  values  for  the  wave  speed  in  the  propellant  only  pertain,  of  course, 
to  the  case  in  which  continuum  behavior  is  considered. 


Table  4.2  Data  Base  for  Nominal  Traveling  Charge  Problem 


Tube  Diameter 

4.0 

cm 

Maximum  Projectile  Travel 

4.0 

m 

Projectile  Mass 

160 

gm 

Propellant  Chemical  Energy 

4450 

J/gm 

Co volume 

1.05 

cm3/gm 

Molecular  Weight 

23.253 

gmol/gm 

Density 

1.66 

gm/cC 

Ratio  of  Specific  Heats 

1.2414 

(-) 

Compressive  Wave  Speed 

1.07 

km/ sec 
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TV 

Unloading  Wave  Speed 

0 

m/  sec 

Initial  position  of  rear  propellant 

2.54 

cm 

face  relative  to  breech 

Initial  Pressure 

700 

MPa 

Maximum  allowable  pressure  on 

700 

MPa 

unreacted  side  of  gas/propellant 

interface 

Maximum  allowable  reactant  Mach  number 

0.999 

Charge- to-projectlle  mass  ratio 

3.54 

Loading  density 

1.2 

gm/cc 

Code  action  is  to  treat  solid  propellant  constitutive  law  as  reversible 
in  case  of  continuum  representation. 


In  Table  4.3  we  compare  the  values  of  projectile  velocity  and  breech 
and  base  pressure  in  the  gas  for  the  three  calculations  based  on  a repre- 
sentation of  the  propellant  as  rigid.  The  base  pressure  corresponds  to 
the  state  of  the  reactants  at  the  gas/propellant  interface. 


Table  4.3  Dependence  of  Nominal  Solution  on  Mesh 


Time 

Projectile  Velocity 

Breech  Pressure 

Base  Pressure 

(msec) 

(km/sec) 

(MPa) 

21  pts  41  pts  81  pts 

21  pts  41  pts  31  pts 

21  pts  41  pts  31  pts 

0.  2 

0.249 

0.249 

0.249 

664.4 

664.4 

664.4 

663.5 

663.5 

663.5 

0.4 

0.511 

0.511 

0.511 

583.1 

583.1 

583.1 

579.1 

579.1 

579.1 

0.6 

0.804 

0.804 

0.804 

492.6 

492.6 

492.6 

481.1 

481.2 

481.2 

0.8 

1.144 

1.144 

1.144 

410.0 

410.0 

410.0 

384.9 

384.9 

385.0 

1.0 

1.559 

1.559 

1.559 

340.1 

340.1 

340.1 

291.6 

291.6 

291.6 

1.6 

2.456 

2.458 

2.460 

199.5 

199.8 

199.8 

84.8 

85.1 

85.3 

2.0  * 

2.821 

2.825 

2.828 

140.7 

142.1 

142.9 

52.4 

52.6 

52.7 

2.34 

3.068 

3.073 

3.076 

103.8 

102.9 

102.1 

38.0 

38.1 

38.2 

Muzzle  Exit 


The  quantities  of  ballistic  interest  are  the  maximum  pressures  and 
the  muzzle  velocity.  These  do  not  exhibit  a mesh  dependence  beyond  0.2% 
as  we  pass  from  21  to  41  points  or  beyond  0.1%  as  we  pass  from  41  to  81 
points.  The  greatest  numerical  error  seems  to  be  associated  with  the 
breech  pressure  at  muzzle  exit  which  exhibits  a mesh  dependence  of  ap- 
proximately 0.7%.  As  the  value  of  the  breech  pressure  at  muzzle  exit  is 
not  normally  of  ballistic  interest,  it  appears  from  Table  4.3  that  41 
mesh  points  are  sufficient  in  simulations  of  this  type. 
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Next,  in  Table  4.4,  we  present  the  histories  of  the  defects  in 
total  mass  and  energy  at  the  same  set  of  times,  for  the  three  calculations. 
Since  there  are  no'  losses  in  the  physical  problem,  both  mass  and  energy 
should  be  conserved  on  a global  basis.  As  the  present  numerical  scheme 
does  not  automatically  assure  such  a global  conservation,  the  mass  and 
energy  defects  provide  an  indication  of  the  magnitude  of  the  errors  of 
numerical  Integration.  The  total  mass  is  computed  using  a trapezoidal 
rule.  The  result  is  subtracted  from  the  initial  value  and  the  defect 
is  then  expressed  as  a percentage  of  the  original  value.  The  energy 
defect  is  computed  similarly. 


Table  4.4  Global 

Mass  and 

Energy  Defects  in  Nominal 

Problem 

Time 

(msec) 

Mass  Defect 
21  pts  41  pts 

(%) 

81  pts 

Ehergy 
21  pts 

Defect 
41  pts 

(%) 

31  pts 

0.2 

-0.01 

0.00 

0.00 

0.00 

0.00 

0,00 

0.4 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.6 

0.00 

0.00 

0.00 

0.00 

0.00 

,0.00 

0.8 

0.02 

0.00 

0.00 

0.00 

0.00 

0.00 

1.0 

0.07 

0.00 

0.00 

0.00 

0.00 

1.6 

0.26 

0.06 

0.01 

-0.01 

0.00 

0.00 

2.0  * 

0.38 

0.10 

0.02 

0.02 

0.01 

0.00 

2.34 

0.45 

0.11 

0.02 

0.01 

Muzzle  Exit 

The  results  of  Table  4.4  essentially  confirm  those  of  Table  4.3. 

If  the  maximum  defect  is  taken  as  an  indicator  of  the  probable  error  of 
any  given  ballistic  prediction,  it  follows  from  Table  4.4  that  errors  of 
the  order  of  0.5%  are  to  be  expected  if  one  uses  a maximum  21  mesh 
points  and  of  the  order  of  0.1%  If  one  uses  41  points. 

We  turn  now  to  a discussion  of  a solution  for  the  nominal  problem 
based  on  a continuum  representation  of  the  propellant.  The  solution  is 
illustrated  by  the  distributions  of  pressure  and  velocity  shown  in 
figures  4.1  through  4.8. 

It  should  be  noted  that  the  solid  propellant  is  assumed  to  have  a 
nonlinear,  but  reversible,  equation  of  state.  A maximum  of  31  mesh  points 
is  allowed  with  a minimum  spacing  of  0.508  cms . The  maximum  time  step 
as  computed  from  the  Courant-Friedrichs-Lewy  condition  is  divided  by 
two  so  that  the  maximum  Courant  number  is,  by  definition,  0.5. 

The  initial  distributions  of  pressure  and  velocity  are  shown  in 
figure  4.1.  As  the  initial  pressure  is  equal  to  the  maximum  value  re- 
quired on  the  unreacted  side  of  the  interface,  the  burn  rate  is  initially 
zero  according  to  the  ideal  law.  Both  the  gas  and  the  solid  propellant 
are  at  rest  and  pressurized  uniformly  to  the  initial  value.  Friction 
between  the  propellant  and  the  tube  wall  is  not  considered.  We  will 
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comment  on  the  Influence  of  the  loss  terms  in  the  next  section  of  this 
chapter. 

Because  of  the  high  pressure  exerted  on  the  projectile  base,  the 
projectile  begins  to  accelerate  and,  analogously  with  the  example  of 
section  4.1,  an  expansion  wave  Is  propagated  through  the  solid  propellant. 
Figure  4.2  shows  the  conditions  at  0.2  msec.  The  drop  in  pressure  across 
the  propellant  is  seen  to  be  considerable.  At  this  time,  burning  of  the 
propellant  has  begun  but  is  still  rather  weak  since  the  gas  pressure  is 
still  high.  By  0.4  msec,  as  shown  in  figure  4.3,  significant  displacement 
of  the  projectile  and  traveling  charge  has  occurred  and  the  gas/pro- 
pellant interface  manifests  itself  quite  clearly  as  a discontinuity  in 
the  distributions  of  both  pressure  and  velocity. 

Although  the  ideal  combustion  model  is  not  that  corresponding  to 
the  Langweiler  process,  it  may  be  seen  that  the  kinetic  energy  of  the 
gas,  as  inferred  from  the  velocity  distribution,  is  still  quite  small 
at  this  stage.  The  same  is  true  at  0.6  msec,  figure  4.4,  and  even  at 
1.0  msec,  figure  4.5,  in  which  the  propellant  is  seen  to  be  approximately 
50%  burnt.  The  wave  dynamics  in  the  solid  propellant  should  also  be 
noted.  In  both  figures  4.4  and  4.5,  the  pressure  gradient  in  the  solid 
propellant  is  seen  to  have  reversed  as  a consequence  of  transient  pheno- 
mena. Of  equal  interest,  although  not  shown  in  the  figures,  is  the  fact 
that  tensile  stresses  are  predicted  to  occur  at  the  Interface  between 
the  propellant  and  the  projectile  base.  However,  undue  significance 
should  not  be  attached  to  this  observation  since  the  wave  dynamics  are 
associated  to  a large  degree  with  the  assumed  highly  pressurized  ini- 
tial condition. 

The  three  concluding  figures  4.6,  4.7  and  4.8  show  the  evolution  of 
the  solution  until  muzzle  exit  occurs.  The  propellant  does  not  quite 
burn  out  in  this  example.  It  should  be  noted,  in  these  last  three 
figures,  that  branching  to  a Mach  number  limited  burning  process  has 
occurred.  The  pressure  at  the  base  of  the  propellant  is  no  longer  700 
MPa  but  is,  instead,  roughly  twice  that  in  the  gas.  As  the  burn  rate 
becomes  limited  by  the  Mach  number  constraint,  the  velocity  profile 
of  the  gas  develops  and  the  gas  does  begin  to  store  increasing  amounts 
of  kinetic  energy.  Nevertheless,  it  is  easy  to  see,  from  figure  4.8, 
that  the  kinetic  energy  of  the  propellant  is  approximately  25%  of  what 
would  be  expected  in  a conventional  charge.  In  the  latter,  the  velocity 
of  the  gas  at  the  projectile  base  would  be  equal  to  that  of  the  projec- 
tile whereas  in  the  present  calculation  it  is  seen  to  be  approximately 
one-half  of  the  projectile  velocity. 

In  the  latter  figures  there  are  still  signs  of  the  transient  phe- 
nomena we  noted  previously  in  connection  with  the  solid  propellant.  They 
are  manifested  here  in  the  pressure  distribution  of  the  gas  which  has  no 
mechanism  for  damping.  Thus  the  variations  in  the  ideal  burn  rate  due 
to  the  Interaction  of  traveling  waves  in  the  solid  propellant  with  the 
gas /propellant  interface  have  been  preserved  in  the  pressure  field  of 
the  gas. 
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Figure  4.1  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  0.0  msec 


Figure  4.2  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  0.2  msec 
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Figure  4.3  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  0.4  msec 


Figure  4.4  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  0.6  msec 
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Figure  4.5  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  1.0  msec 


Figure  4.6  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  1.6  msec 


Figure  4.7  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  2.0  msec 


Figure  4.8  Distributions  of  pressure  and  velocity 
in  nominal  traveling  charge  problem 
at  time  2.4  msec 
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4«3  Influence  of  Losses 


To  conclude,  we  summarize  the  results  of  calculations  performed 
during  the  testing  of  the  code,  with  a view  to  forming  an  assessment  of 
the  magnitudes  of  the  losses  to  be  expected  in  the  traveling  charge. 
These  results  are  summarized  in  Table  4.5. 


Table  4,5  Influence  of  Losses  on  Muzzle  Velocity 

Case  Comments 

Muzzle  Velocity 
(km/sec) 

1 ! Nominal  with  rigid  propellant 


3.068 


2 Propellant  treated  as  a continuum 


2.941 


3 


4 


5 


6 

7 


Propellant  treated  as  a continuum 
with  wall  friction  due  to  constant 
coefficient  of  friction  equal  to  0.1 

Propellant  treated  as  a continuum 
with  wall  friction  coefficient  given 


as  following  table  of 

values 

Velocity 

P 

(km/sec) 

(-) 

0. 

0.06 

0.152 

0.02 

0.304 

0.01 

Propellant  treated  as 

a continuum 

with  wall  friction  due  to  gas  film 
bearing  with  Pf  = 1.79  x 10”^gm/cm-sec 
and  df  = 0.254  mm 

Rigid  propellant  and  heat  losses 

Rigid  propellant  and  resistance 
due  to  shocked  air 


2.194 


2.981 


2.937 


2.997 

3.025 


8 Rigid  propellant  and  constant  3.059 

resistance,  due  to  obturator,  of 

3,45  MPa 

9 Rigid  propellant  and  resistance  2.986 

due  to  setback  load  on  obturator 

of  length  2.54  cms  with  forward 
mass  of  projectile  equal  to  160  gm 
and  coefficient  of  friction  given 
according  to  the  following  table 
of  values 

Velocity  p 


(km/sec) 

(-) 

0, 

0.6 

0.152 

0.2 

0.304 

0.1 
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From  this  table  it  is  evident  that  the  only  losses  of  significance 
are  likely  to  be  associated  with  friction  between  the  propellant  and  the 
tube.  A comparison  of  cases  2 and  3 shows  that  a friction  coefficient 
of  0.1  simply  cannot  be  tolerated.  On  the  other  hand,  a mild  coefficient 
of  friction,  such  as  that  considered  in  case  4,  may  actually  increase  the 
muzzle  velocity^  This  is  a consequence  of  the  failure  of  case  2 to  yield 
burnout  of  the  propellant  whereas  the  friction  in  case  4 delays  the  pro- 
jectile exit  sufficiently  for  complete  burnout^ to  occur.  The  influence 
of  the  resistance  in  this  case  is  therefore  similar  to  that  of  a shot 
start  pressure  which,  as  is  well  known,  often  acts  to  increase  the  muzzle 
velocity  in  conventional  ammunition. 
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5.0  CONCLUSIONS 


The  following  conclusions  are  drawn  in  respect  to  the  present  study. 

(1)  A model  of  the  end-burning  traveling  charge  has  been  formulated, 
encoded,  and  demonstrated.  The  model  is  suitable  for  assessing  the  hydro 
dynamic  and  ideal  combustion  limits  on  the  ballistic  performance  of 
traveling  charge  guns. 

(2)  Good  agreement  has  been  shown  with  an  exact  solution  for  a simpli- 
fied case.  Studies  of  mesh  indifference  and  global  conservation  of  mass 
and  energy  indicate  that  the  numerical  error  associated  with  ballistic 
predictions  of  a nominal  traveling  charge  configuration  based  on  41  mesh 
points  is  of  the  order  of  0.1%-1.0%. 

(3)  A review  of  the  arguments  which  deny  the  admissibility  of  a strong 
steady  deflagration  wave  has  revealed  that  this  combustion  limit  is  a 
manifestation  of  the  well  known  steady  flow  process  of  choking  by  heat 
addition.  It  does  not  appear  likely  that  this  limit  can  be  circum- 
vented without  sacrificing  ballistic  performance  by  the  incorporation 
of  condensed  additives  to  control  the  effective  flow  area  of  the  gas 
phase  within  the  flame. 

(4)  Preliminary  calculations  have  shown  the  importance  of  proper  lubri- 
cation of  the  interface  between  the  traveling  charge  and  the  tube.  A 
coefficient  of  friction  equal  to  0.1  resulted  in  a loss  of  30%  of  the 
muzzle  velocity  predicted  without  friction. 
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Acceleration 

Additive  constant  in  measured  burn  rate  law 
Pre-exponential  factor  In  measured  burn  rate  law 
Covolume  of  gas 

Discharge  coefficient  of  gas-permeable  breech 

Discharge  coefficient  of  muzzle 

Isentropic  sound  speed  in  gas 

Specific  heat  at  constant  pressure 

Specific  heat  at  constant  volume 

Diameter  of  tube 

Internal  energy  of  gas 

Chemical  energy  of  propellant 
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Length  of  bearing  section  of  obturator 
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Molecular  weight  of  gas 

Mass  of  propellant 

Burn  rate  exponent 

Prandtl  number 

Pressure  in  gas 

Pressure  in  shocked  air  ahead  of  projectile 
Resistive  pressure  due  to  obturator 
Shot  start  pressure 
Initial  pressure  of  gas 

Initial  pressure  of  air  ahead  of  projectile 
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Coefficient  in  correlation  for  heat  loss  to  tube 
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Regression  rate  of  propellant 
Gas  temperature 
Wall  temperature 
Time 

Gas  velocity 

Propellant  velocity 

Charge  to  Projectile  Mass  Ratio 

Axial  coordinate 
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Ratio  of  specific  heats  of  gas 
Ratio  of  specific  heats  of  air 
Time  step 
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Viscosity  of  lubricating  film 

Coefficient  of  friction  between  propellant  and  tube  wall 

Coefficient  of  friction  between  obturator  and  tube  wall 

Poisson  ratio  of  projectile 

Density  of  gas 

Density  of  propellant 

Value  of  p at  zero  pressure 

Pressure  in  propellant 

Value  of  a on  nominal  loading  curve 


A dot  over  a quantity  indicates  a total  derivative  with  respect  to  time 
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Appendix  A;  On  the  Deflagration  Wave  with  Supersonic  Reactants 

The  purpose  of  this  appendix  Is  to  note  briefly  the  arguments  which 
have  been  advanced  to  deny  the  possibility  of  a steady  deflagration  with 
supersonic  reactants  as  perceived  by  an  observer  moving  with  the  flame. 
These  arguments  are  based  on  the  details  of  the  structure  of  the  flame 
and  have  been  established  In  the  context  of  a single  phase  gas  flow. 
Subsequently,  we  comment  on  the  Implications  of  a heterogeneous  two- 
phase  structure  In  regard  to  the  possibility  of  supersonic  flow. 

Finally,  we  note  the  Implications  of  our  findings  as  regards  the  tra- 
veling charge. 

The  theory  of  detonations  and  deflagrations,  as  It  affects  our 
present  discussion.  Is  treated  fully  In  the  monograph  of  Courant  and 
Friedrichs®.  From  their  development  we  shall  abstract  only  those  re- 
sults which  bear  directly  on  the  present  discussion.  In  particular, 
we  will  note  their  treatment  of  the  allowable  states  which  may  be 
reached  In  a steady  exothermic  flow  without  the  restrictions  Imposed  by 
considerations  of  the  structure  of  the  reaction  zone.  This  discussion 
will  provide  the  essential  nomenclature  and  conceptual  framework  within 
which  the  basis  for  denial  of  the  possibility  of  a deflagration  with  super- 
sonic reactants  can  be  understood.  Following  the  presentation  of  this 
denial  we  will  note  the  comments  of  other  authors  In  relation  to  the 
single  phase  deflagration. 

The  basic  constraints  on  the  allowable  steady  state  processes  with 
properties  observed  at  two  stations,  which  we  designate  by  subscripts 
0 and  1 respectively,  are  the  laws  of  conservation  of  mass,  momentum 
and  energy.  We  have  already  noted  these  in  the  present  report.  In 
order  to  keep  the  discussion  of  this  appendix  self-contained  we  restate 
them  here  and  we  introduce  somewhat  different  nomenclature.  The  symbols 
used  in  this  appendix  will  be  defined  as  they  are  introduced. 

Using  p and  p to  denote  pressure  and  density  and  letting  v be  the 
gas  velocity  in  a frame  of  reference  moving  with  the  reaction  zone  we 
have 


Pq  pQ^O^  = Pi 

(Tq.Po)  + Pq'^o  2 ^0^ 


E^^\ti,Pi)  + p^T^  + Y v^^ 


(A.l) 
(A.2) 
(A.  3) 


and  where  we  have  also  Introduced  t = 1/p  and  E is  the  internal^  energy, 
assumed  to  be  given  as  a function  of  t and  p.  The  superscripts  \on  the 
values  of  internal  energy  in  (A. 3)  Indicate  that  due  to  changes  of  com- 
position, the  functional  form  may  vary  from  station  0 to  station  1.  The 
nomenclature  used  here  is  Identical  with  that  of  Courant  and  Friedrichs. 
We  will  adopt  the  convention  that  the  gas  flows  from  station  0 to  \ 
station  1.  \ 


Figure  A.l 


Hugoniot  curve  for  reacted  gas 


It  should  be  noted  that  nothing  has  been  said  concerning  the  proxi- 
mity of  stations  0 and  1 or  of  the  structure  of  the  flow  between  them. 

It  is  assumed  only  that  the  flow  is  steady  and  that  viscous  stresses  and 
heat  conduction  may  be  neglected  at  the  two  stations.  In  many  cases  of 
practical  interest  the  flow  may  fail  to  be  truly  steady.  Yet  the  present 
results  may  be  regarded  as  approximately  correct  provided  that  the  rates 
of  change  of  mass,  momentum  and  energy  in  the  region  bounded  by  stations 
0 and  1 may  be  neglected  by  comparison  with  the  fluxes  of  these  quantities. 
Such  conditions  will  be  favored  when  the  reaction  zone  is , thin  and  the 
environment  changes  slowly. 

From  the  conservation  laws  (A.l),  (A. 2)  and  (A. 3)  we  may  deduce  two 
important  relationships.  First,  from  (A.l)  and  (A. 2)  we  may  deduce  that 


Thus  it  is  apparent  that  only  those  processes  are  possible  in  which  the 
sign  of  the  change  in  pressure  is  opposed  to  that  of  the  specific  volume. 
Observe,  moreover,  that  when  the  reaction  zone  has  finite  thickness,  but 
is  steady,  and  viscous  stresses  may  be  neglected,  then  (A. 4)  applies 
throughout  the  reaction  zone  and  shows  that  the  pressure  and  specific 
volume  are  linearly  related  throughout  the  process. 

Next,  introduce  the  Hugoniot  function  for  the  burnt  gas 
H^^\t,p)  = E^^^(t,p)  - E^(Tq,Pq)  (t  - Tq)(p  + Pq) 

Then  (A. 3)  may  be  written  as 

H<^^^t,p)  = E^°^(Tq,Pq)  - E^^^Tq,Pq)  (A. 5) 

If  the  reaction  is  assumed  to  be  exothermic  as  the  gas  flows  from  station 
0 to  station  1,  it  follows  that  the  right  hand  side  of  (A. 5)  is  positive. 

Now  suppose  that  the  initial  state  Tq,Pq  is  given  and  regard  (A. 5) 
as  a locus  of  possible  final  states.  The  graph  of  (A. 5)  appears  as 
shown  in  figure  A.l,  subject  to  certain  thermodynamic  assumptions'^. 
Because  of  (A. 4)  the  accessible  portion  of  (A. 5)  is  confined  to  two 
separate  branches,  the  upper  corresponding  to  increases  in  pressure  and 
the  lower  corresponding  to  decreases  in  pressure.  These  are  referred  to 
as  the  detonation  and  deflagration  branches  respectively.  Equation  (A. 4) 
provides  some  immediate  insight  into  an  important  difference  between  the 
two  branches.  It  is  apparent  that  the  limiting  constant  pressure  process 
— a deflagration — travels  with  an  infinitesimal  velocity.  On  the  other 
hand,  the  limiting  constant  volume  process — a detonation — travels  with 
an  infinite  velocity.  For  the  present  discussion,  only  the  deflagration 
branch  is  of  interest. 
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The  deflagration  branch  may  itself  be  divided  into  two  branches, 
identified  in  figure  A.l  as  weak  and  strong  deflagrations,  according  to 
the  magnitude  of  the  pressure  drop,  and  separated  by  a point  identified 
as  the  Chapman-Jouguet  deflagration.  If  one  considers  an  arbitrary 
straight  line  emanating  from  (tq.Pq)  and  intersecting  with  the  defla-  g 
gration  branch  it  follows,  subject  to  certain  thermodynamic  assumptions  , 
that  the  line  has  at  most  two  points  of  Intersection — one  on  the  weak 
deflagration  branch  and  the  other  on  the  strong  deflagration  branch. 

At  the  Chapman-Jouguet  point,  the  straight  line  is  tangent  to  the  de- 
flagration branch. 

It  may  be  shown  that  in  the  case  of  a weak  deflagration,  the  reac- 
tants are  subsonic  relative  to  the  reaction  front  and  that  in  the  case 
of  a strong  deflagration,  they  are  supersonic.  Naturally,  the  Chapman- 
Jouguet  point  is  distinguished  by  the  fact  that  the  reactants  are  sonic 
with  respect  to  the  reaction  front.  In  each  case  the  speed  of  sound  is 
understood  to  be  that  of  the  reacted  gas.  It  is  also  shown  by  Courant 
and  Friedrichs  that  in  the  case  of  an  ideal  gas,  at  least,  a deflagration 
wave  is  always  subsonic  relative  to  the  unreacted  gas . 

The  foregoing  discussion  has  distinguished  between  deflagrations 
with  subsonic  and  supersonic  reactants  but  has  not  identified  any  reasons 
to  deny  the  admissibility  of  either.  Indeed  both  the  weak  and  strong 
deflagrations  are  clearly  admitted  by  the  principle  of  conservation  of 
mass,  momentum  and  energy.  In  order  to  show  the  impossibility  of  a steady 
strong  deflagration  wave  it  is  necessary  to  consider  the  finite  rate  of 
reaction.  Then  the  following  geometrical  argument  may  be  employed. 

Consider  figure  A. 2.  We  show,  schematically,  the  Hugoniot  for  the 
unreacted  gas,  the  fully  reacted  gas,  and  the  gas  in  several  stages  of 
partial  reaction.  That  is  to  say,  the  preceding  analysis  is  assumed 
to  apply  at  all  stages  of  the  reaction.  Now  there  are  just  two  types  of 
steady  process  which  may  occur  between  0 and  1.  The  state  may  change 
continuously  due  to  the  finite  rate  of  heat  release  by  the  reaction  in 
which  case  we  are  required  to  traverse  the  straight  line  (A. 4).  Or, 
a compressive  shock  may  occur,  in  which  case  we  may  traverse  the  Hugoniot 
corresponding  to  the  state  of  reactedness  at  which  the  shock  was  en- 
countered, the  direction  of  the  process  being  such  as  to  lead  to  an  in- 
crease in  pressure. 

It  is  evident,  from  the  assumed  shape  of  the  Hugoniot  curves  illus- 
trated in  figure  A. 2,  that  a continuous  process  of  heat  release  from  0 
to  1 must  inevitably  Intercept  the  weak  deflagration  branch  when  the 
reaction  is  complete.  Accordingly,  a transition  to  the  second  inter- 
section point  in  the  strong  deflagration  branch  would  require  an  expan- 
sion shock,  which  is  inherently  unstable.  On  the  other  hand,  any  admis- 
sible shock  transition  at  a state  of  partial  reactedness,  can  only  lead 
to  higher  pressure  from  which  only  an  intersection  with  the  weak  defla- 
gration branch  is  possible,  unless  a detonation  is  admitted. 
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This  geometrical  argument  was  also  formalized  by  Courant  and 
Friedrichs  to  provide  an  analytical  demonstration  that  a simple  flame 
model  would  reach  a state  of  complete  reactedness  on  the  weak  defla- 
gration branch.  The  earlier  work  of  Friedrichs^  and  the  book  by  Williams^ 
may  also  be  consulted  for  demonstrations  based  on  the  structure  of  the 
solutions  of  particular  models  of  the  reaction  zone.  Landau  and 
Lifschitz^^  have  considered  the  problem  from  the  point  of  view  of  the 
stability  of  the  process.  Considering  the  characteristic  data  on  each 
side  and  assuming  that  just  one  internal  condition  is  specified  by  the 
flame  structure  leads  to  the  conclusion  that  a perturbation  about  a 
strong  deflagration  is  under determined.  Accordingly,  exponentially 
growing  solutions  are  admitted  and  the  flame  is  unstable.  The  dis- 
cussion of  the  inadmissibility  of  the  strong  deflagration  wave  given  by 
Vinti^  is  essentially  the  same  as  the  geometrical  argument  given  here. 

An  alternative  way  of  understanding  the  limitation  of  the  reaction 
process  to  weak  or  at  most  sonic  deflagrations  follows  from  a conside- 
ration of  the  laws  of  choking  in  quasl-one-dlmenslonal  compressible  flow. 
Moreover,  this  alternative  point  of  view  enables  one  to  consider  directly 
the  consequences  of  a multiphase  structure  of  the  flame. 

Consider  a generalized  quasi-one-dimens ional  steady  flow  in  the 
manner  described  by  Shaplro^°.  From  the  balance  equations  for  a control 
volume  as  shown  in  figure  A. 3 one  may  deduce  the  following  functional 
dependence  of  the  Mach  number  M on  the  processes  associated  with  the 
flow,  namely  cross  sectional  area,  heat  and  mass  addition  and  drag. 
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The  nomenclature  of  this  equation  is  taken  directly  from  Shapiro 
and  has  the  following  significance. 

M is  the  Mach  number  based  on  the  ideal  gas  equation  of  state 
for  which  the  speed  of  sound  c is  given  by  c^  = yRT/V  . 

A is  the  net  flow  area  for  the  gas.  That  is,  the  area  of  the  duct 
less  the  area  of  the  entrained  liquid  or  droplets  or  particles. 


^^BhapirOj  A.  "The  Vynamtas  and  Thermodynamics  of  Compressible  Fluid  Flow" 

Ronald  Press j New  York  1953 
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Figure  A. 3 


Control  volume  for  analysis  of  steady 
heterogeneous  reacting  flow  (Shapiro,  ref.  18) 


y is  the  ratio  of  specific  heats 

dQ  is  the- net  heat  added  to  the  gas  stream  by  conduction  or 

radiation  from  external  sources,  per  unit  mass  of  gas 
entering  the  control  surface. 


dH  = 
dh 


pr 


f 


is  the  net  external  work  to  outside  bodies  per  unit  mass 
entering  the  control  surface.  2 2 

dw  V - V 

dh  - [I  (T  - T ) + V /2]  — ^ - [h,  - h + r-^] 

pr  " pg  ' og'  ^ u)  L V 2 

is  the  heat  release  per  unit  mass  of  gas  stream  due  to 
decomposition,  positive  for  an  exothermic  reaction. 

is  the  wall  friction  factor. 


is  the  hydraulic  radius. 


dX  is  the  sum  of  the  drag  of  stationary  bodies,  the  drag  of 

droplets,  particles  and  filaments  traveling  more  slowly  than 
the  gas  stream,  and  the  body  or  gravity  forces, 
dm  dm,  , 


>'8  - ''g''  ’'l  ■ '-L''’ 


dm  = dm,  + dm  . See  Figure  A. 3 
L g 


W is  the  molecular  weight. 

R is  the  gas  constant. 


h^  is  the  enthalpy  of  liquid  about  to  evaporate  as  it  enters 
the  control  volume. 


h^  is  the  enthalpy  of  evaporated  liquid  dm^  at  temperature  T. 

is  the  stagnation  temperature  of  the  injected  gas  stream. 

c is  the  average  value  of  c between  T and  T. 

Pg  P og 


The  remaining  symbols  may  be  identified  from  figure  A. 3 and  the  convention 
that  Vg  and  v^  are  the  streamwise  components  of  the  velocities  of  the 
injected  gas  and  liquid. 


From  a consideration  of  equation  (A. 6),  which  is  seen  to  embed  ex- 
tremely complex  behavior,  the  following  conclusions  may  be  drawn^'®. 

(1)  An  Increase  in  area  acts  to  decrease  the  value  of  M if  M < 1 
and  to  increase  M if  M > 1. 
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(2)  Heat  addition  or  combustion  acts  to  increase  M if  M < 1 and  to 
decrease  M if  M > 1. 

(3)  The  effect  of  friction,  or  drag  of  internal  bodies,  acts  to  increase 
M if  M < 1 and  to  decrease  M if  M > 1. 

(4)  Mass  addition  with  y < 1 acts  to  increase  M if  M < 1 and  to 
decrease  M if  M > 1. 

(5)  An  increase  in  W acts  to  decrease  M if  M < 1 and  to  increase  M 
if  M > 1. 

(6)  An  increase  in  y always  acts  to  reduce  M. 

These  results  permit  us  to  understand  the  denial  of  the  admissibility 
of  the  strong  deflagration  wave  from  an  alternative  point  of  view.  The 
previous  discussion,  based  on  the  assumed  shape  of  the  Hugoniot  of  the 
reactants,  corresponds  to  a process  in  which  only  heat  addition  due  to 
combustion  was  of  interest.  Evidently,  if  we  consider  an  arbitrary  initial 
state,  presumed  subsonic,  the  Mach  number  increases  steadily  as  we  pass 
towards  the  fully  reacted  state.  If,  however,  the  Mach  number  increases 
to  unity,  there  is  no  longer  a solution  to  the  steady  flow  problem  unless 
the  initial  state  may  be  altered.  Thus  the  inadmissibility  of  the  strong 
deflagration  wave  is  perceived  to  be  a manifestation  of  the  well-known 
phenomenon  of  choking. 

In  the  heterogeneous  flame  we  must  also  consider  mass  addition  and 
drag.  These,  too,  always  drive  the  Mach  number  towards  unity  just  as 
the  heat  addition  does.  Only  one  possibility  appears  to  exist  in  the 
heterogeneous  flame  whereby  the  sonic  point  can  be  passed  in  a continuous 
manner.  The  cross-sectional  area  of  the  flow  will  increase  due  to  con- 
sumption of  the  dispersed  condensed  phase  and  also,  possibly,  due  to 
separation  of  the  droplets  or  particles  as  a consequence  of  the  drag. 

If,  as  the  sonic  point  is  encountered,  the  effect  of  change  of  area  is 
such  as  to  dominate  the  opposing  effects  of  heat  addition,  mass  addition 
and  drag,  then  a continuous  transition  to  supersonic  flow  would  be  pos- 
sible. A trivial  example  of  such  a case  is,  of  course,  the  converging- 
diverging  rocket  nozzle  in  which  the  cross-sectional  area  of  the  duct 
is  used  to  effect  the  transition  from  subsonic  to  supersonic  flow. 

The  possibility  of  obtaining  such  continuous  transitions  by  means 
of  the  area  change  associated  with  condensed  phase  fuel  consumption 
and  dispersal  may  be  determined  only  by  parametric  studies  of  equation 
(A. 6).  Such  studies  are  beyond  the  scope  of  the  present  enquiry.  However, 
we  may  speculate  that  the  conditions  under  which  the  transition  could  be 
made  would  correspond  to  fuels  of  rather  low  ballistic  efficiency  in 
which  inert  components  would  play  the  role  of  a conventional  rocket 
nozzle . 

We  conclude  with  some  comments  on  the  Implications  of  these  results 
as  regards  the  end-burning  traveling  charge.  First,  we  concur  with 
Vinti's  conclusion  that  the  Langweiler  process  would  be  inherently  in- 
capable of  realization  once  the  projectile  velocity  exceeded  the  speed 
of  sound  in  the  reacted  gas.  Only  by  making  the  reaction  zone  suffi- 
ciently thick  that  unsteady  effects  become  important  can  we  expect  to 
develop  supersonic  reactants.  Of  course,  as  the  reaction  zone  becomes 
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thicker,  we  approach  the  configuration  of  a conventional  propelling  charge 
in  which,  as  discussed  in  the  introduction  to  this  report,  the  reaction 
zone  effectively  fills  the  tube.  However,  the  rejection  of  the  Langweiler 
scheme  does  not  necessarily  defeat  the  concept  of  the  traveling  charge 
as  a potentially  useful  ballistic  solution.  Because  the  thrust  associated 
with  the  Langweiler  scheme  increases  continually  as  the  projectile  ac- 
celerates, the  gun  is  required  to  operate  at  a condition  wich  is  far  re- 
moved from  the  ideal  constant  pressure  cycle.  Moreover,  the  pressure 
on  the  unreacted  side  of  the  gas /propellant  Interface  is  found  to  rise 
very  sharply  as  the  Mach  number  Increases  beyond  unity. 

Hence,  the  present  findings  are  more  appropriately  considered  in  the 
context  of  an  ideal  constant  base  pressure  scheme  for  the  burning  rate. 

In  this  context,  the  denial  of  the  possibility  of  a strong  deflagration 
wave  is  not  necessarily  restrictive.  It  is  merely  necessary  that  the 
Chapman-Jouguet  point  be  reached  so  that  the  combustion  zone  is  just  un- 
coupled from  the  pressure  of  the  column  of  reactants.  In  such  a case 
the  propellant  will  bum  under  a choked  condition.  However,  it  seems 
probable  that  the  pressure  of  the  unreacted  propellant  would  be  influ- 
enced not  only  by  the  chemical  formulation  of  the  propellant  but  also 
by  its  mechanical  behavior  during  the  interior  ballistic  cycle. 
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Appendix  B;  Code  Description  and  Fortran  Listing 


The  model  of  the  end  burning  traveling  charge  has  been  encoded  in 
the  FORTRAN  IV  language  for  implementation  on  the  CYBER  7600  computer 
and  is  documented  by  the  listing  which  forms  the  principal  part  of  this 
appendix.  We  provide  a summary  of  the  routines,  their  purpose  and  their 
linkages  to  other  routines,  in  Table  B.l.  In  Table  B.2  we  provide  a glos 
sary  of  those  variables  which  are  contained  in  the  common  block  areas  of 
storage.  Local  variables  are  not  described.  Table  B.3  summarizes,  in 
detail,  the  input  files  used  to  run  the  program. 

In  addition  to  the  tabular  information,  we  provide  the  following 
brief  discussion  of  the  code  structure,  paying  particular  attention  to 
the  manner  in  which  the  physical  problem  is  represented.  We  also  com- 
ment on  the  code  output. 

The  program  consists  of  a main  routine,  TCMAIN,  which  is  supported 
by  a total  of  twenty  subfunctions  and  subprograms.  For  ease  of  main- 
tenance, particularly  in  connection  with  the  constitutive  laws,  a large- 
ly modular  approach  has  been  followed  in  writing  the  code.  Only  the  co- 
volume equation  of  state  of  the  gas  is  intrinsically  bound  into  the  code; 
the  remaining  constitutive  laws  are  expressed  by  individual  subroutines. 
With  the  exception  of  subroutine  BASE,  which  embeds  the  rather  compli- 
cated logic  associated  with  the  various  combustion  models  and  the  bran- 
ching among  them,  the  programming  is  extremely  straightforward. 

The  principal  computational  arrays  are  GS1(100,3),  GS2(100,3)  and 
GS3(100,3)  as  described  in  Table  B.2.  The  first  index  of  these  arrays 
points  to  a mesh  location,  a maximum  of  100  points  being  admitted  by 
the  present  dimension  statements.  The  second  index  points  to  a storage 
level  and  is  assigned  the  values  1,2,3  on  a rotating  basis.  At  any 
level,  the  index  NI  points  to  current  storage;  that  is  to  say,  NI  points 
to  the  present  data  at  the  outset  of  a predictor  step  and  is  advanced  to 
point  to  the  predicted  future  data  on  the  corrector  step.  The  index  NF 
points  to  the  storage  level  which  contains  the  future  data.  Finally, 
the  index  NP  is  used,  on  the  corrector  step,  to  point  to  the  present 
data.  The  principal  integration  step  counter  is  NDT,  which  is  incre- 
mented by  one  on  each  predictor  and  each  corrector  level. 

At  any  time,  the  gas  column  is  represented  by  NDIM  mesh  points  whose 
data  occupy  the  first  NDIM  locations  of  GSl,  GS2  and  GS3.  If  the  propel- 
lant is  treated  as  a continuum,  its  data  occupy  the  storage  locations 
NDIMl  to  NDIM2  of  GSl,  GS2  and  GS3,  where  NDIMl  = NDIM  + 1. 

The  execution  of  the  program  is  controlled  by  the  data  described  in 
Table  B.3.  Multiple  runs  may  be  performed  as  follows.  For  a given 
problem,  a parametric  series  may  be  run  using  an  array  of  values  of  the 
ratio  of  charge-to-projectlle  mass.  At  the  conclusion  of  this  series, 
the  program  returns  to  its  starting  point  and  looks  for  another  complete 
set  of  data.  If  none  is  furnished,  exit  occurs.  When  a parametric 
series  is  to  be  conducted,  the  input  datum  IDEALI,  which  defines  the 
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combustion  model,  is  also  consulted.  The  basic  values  of  IDEALI  are 
zero,  if  measured  burn  rate  data  are  used;  one,  if  Langweiler  burning 
is  used;  and  two.,  if  the  pressure  on  the  unreacted  side  of  the  gas/ 
propellant  interface,  or  the  projectile  acceleration  is  specified.  By 
setting  IDEALI  equal  to  three  or  four,  initial  conditions  are  deduced, 
using  the  relations  described  in  section  2.6,  to  yield  the  appropriate 
value  of  pressure  or  acceleration  in  combination  with  the  designated 
charge- to-projectile  mass  ratio.  Following  the  evaluation  of  the  ini- 
tial data  in  such  cases,  IDEALI  defaults  internally  to  the  value  two. 

It  should  also  be  noted  that  when  the  initial  properties  are  deduced 
from  the  charge-to-projectile  mass  ratio,  the  propellant  density  is 
determined  from  a user-supplied  value  of  the  loading  density  and  may 
differ  from  the  value  typical  of  the  homogeneous  substance. 

We  also  note,  in  regard  to  those  data  which  are  defined  in  a 
tabular  fashion,  that,  except  for  the  measured  burn  rate  data,  the  fol- 
lowing interpretation  is  made  in  a consistent  manner.  Values  of  the 
dependent  variable  are  deduced  for  an  argument  lying  within  the  table 
range  of  the  independent  variable  by  means  of  linear  interpolation. 

When  an  argument  is  furnished  which  lies  below  or  above  the  table  range, 
the  dependent  variable  is  assigned  the  first  or  the  last  entry,  ac- 
cordingly. The  measured  burn  rate  coefficients  are  assumed  to  be  con- 
stant until  the  mass  fraction  consumed  at  any  time  exceeds  the  corres- 
ponding value  ZR  assigned  to  the  coefficients.  Interpolation  does  not 
occur. 

We  conclude  by  commenting  on  the  output  of  the  code.  The  principal 
logical  index  in  this  regard  is  the  input  quantity  NPRO.  If  it  is  zero, 
the  continuum  state  variables  are  printed  at  times  which  are  integer 
multiples  of  the  input  quantity  TINOM.  By  setting  NPRO  equal  to  one, 
two  or  three,  various  bodies  of  compressed  output  can  be  obtained  in 
place  of  the  full  tables  of  continuum  data.  If  NPRO  is  four,  no  inter- 
mediate results  are  printed.  In  all  cases,  the  calculation  concludes 
with  a table  of  summary  data  of  ballistic  interest.  The  code  also  tracks 
the  total  mass  and  energy  of  the  system  at  any  time.  At  the  conclusion 
of  the  run  the  maximum  and  final  percentage  defects  of  these  quantities, 
from  the  initial  values,  are  printed.  These  may  be  used  to  assess  the 
approximate  magnitude  of  the  errors  of  numerical  integration  in  cases 
where  physical  losses  do  not  occur  due  to  dissipation  or  outflow. 
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Table  B.l 

Summary  of  Routines 

- Purpose  and  Linkages 

TCMAIN 

Called  by; 

NONE 

Calls : 

BARI,  BAR2,  BAR3,  BAR4,  BASE 

BASEPR,  BREECH,  GETK,  OUTFLO, 

REFIT,  SIGCHK,  VELCHK 

Purpose: 

Main  program  and  principal  executive 

routine.  TCMAIN  reads  and  prints  problem  data,  initializes  constants, 
and  then  either  calls  BARI  to  initialize  the  state  variables  or  reads 
data  from  unit  8 if  problem  is  restarted.  TCMAIN  organizes  the  two- 
level  integration  scheme  and  is  supported  by  specialized  subroutines 
which  handle  interior  mesh  points  (BAR3)  and  the  various  boundary 
conditions  (BASE,  BASEPR,  BREECH,  OUTFLO).  TCMAIN  provides  printed 
output  and  disc  storage  of  solution  in  accordance  with  user-supplied 
data.  Summary  data  are  accumulated  and  are  printed  at  the  termination 
of  each  case. 

BARI  Called  by:  TCMAIN 

Calls;  BURN,  RNOM,  REFIT,  RESF 

Purpose;  BARI  initializes  continuum  arrays  and, 
through  the  call  to  REFIT,  establishes  the  initial  mesh. 

BAR2  Called  by;  TCMAIN,  BAR3,  CARAC 

Calls ; None 

Purpose ; Utility  routine,  BAR2  transforms 
computational  variables  into  ordinary  state  variables. 

BAR3  Called  by;  TCMAIN 

Calls;  BARa.  HTlif,  WFR 

Purpose : Integration  of  all  continuum  equations 

at  all  interior  mesh  points.  Called  twice  per  integration  step,  once 
for  each  level. 


BAR4  Called  by;  TCMAIN 

Calls;  DSDR 

Purpose;  Computes  maximum  time  step  allowable 

according  to  Courant-Friedrichs-Lewy  stability  condition  and  safety 
factor  SAFE. 

BASE  Called  by;  TCMAIN 

Calls;  BURN,  CARAC,  DSDR,  RESP,  RNOM 

Purpose : Subroutine  BASE  is  responsible  for  the 

determination  of  the  boundary  values  at  the  base  of  the  projectile,  fol- 
lowing burnout,  and  at  the  gas/propellant  interface  for  all  the  com- 
bustion models.  If  the  propellant  is  treated  as  a continuum,  its  boun- 
dary values  at  the  interface  are  also  deduced  by  BASE.  The  routine  is 
called  twice  per  update  step,  once  at  each  level. 


BASEPR  Called  by; 

Calls; 

Purpose; 

projectile  when  the  propellant 
per  Integration  step. 


TCMAIN 

CARAC,  DSDR,  RNOM 
Updates  boundary  values  at  base  of 
is  treated  as  a contlnuinn.  Called  twice 
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BREECH 


Called  by;  TCMAIN 
Calls:  CARAC 


Purpose  I Updates  boundary  values  at  breech  of 
tube  when  breech  Is  closed  or  Impermeable  to  gas. 


BURN  Called  by: 

Calls: 

Purpose: 

of  pressure  of  reactants. 


BARI,  BASE 
None 

Computes  measured  burn  rate  as  a function 


CARAC 


Called  by;  BASE,  BASEPR,  BREECH,  OUTFLO 

Calls;  BAR2,  DSDR 

Given  a value  of  the  velocity  at  a 


Purpose; 

boundary  mesh  point,  CARAC  deduces  a value  of  pressure  which  is  compatible 
with  the  given  value  and  also  with  the  flow  in  the  interior. 


DSDR  Called  by;  BARA,  BASE,  BASEPR,  CARAC 

Calls;  SNOM 

Purpose ; Computes  wave  speed  in  propellant  as 

a function  of  density  and  rate-of-change  of  density. 

GETK  Called  by;  TCMAIN 

Calls;  RESP 

Purpose:  Computes  time  derivatives  of  state 

variables  governed  by  ordinary  differential  equations.  Called  twice 
per  integration  step,  once  at  each  level. 


HTW 

Called  by: 

BAR3 

Calls: 

None 

Purpose: 

Computes  heat  loss  per  unit  volume 

due  to  heat 

transfer  from  gas  to 

tube  wall. 

OUTFLO  Called  by;  TCMAIN 

Calls;  CARAC 

Purpose ; Computes  boundary  values  at  gas  permeable 
breech  and  also  at  muzzle  following  expulsion  of  the  projectile.  Called 
twice  per  integration  step. 

REFIT  Called  by:  TCMAIN,  BARI 

Calls : None 

Purpose;  Allocates  mesh  and  performs  spline 
interpolation  of  data  when  mesh  changes. 

RESP  Called  by;  BARI,  BASE,  GETK 

Calls;  None 

Purpose ; Computes  resistance  to  projectile  motion 

due  to  friction  on  obturator  and  pressure  of  shocked  air  in  barrel. 

RNOM  Called  by;  BARI,  BASE,  BASEPR 

Calls ; None 

Purpose:  Computes  propellant  density  as  a 

function  of  pressure  on  nominal  loading  curve. 
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SIGCHK 


Galled  by:  TCMAIN 

Calls:  SNOM 


Purpose:  Checks  that  state  of  continuum  pro- 

pellant does  not  lie  above  nominal  loading  curve. 

SNOM  Called  by:  DSDR,  SIGCHK 

Calls:  None 

Purpose:  Computes  propellant  pressure  as  a 

function  of  density  on  nominal  loading  curve. 

VELCHK  Called  by:  TCMAIN 

Calls;  None 

Purpose;  Checks  that  continuum  propellant 

velocity  has  not  reversed  sign  as  a consequence  of  friction. 

WFR  Called  by;  BARS 

Calls;  None 

Purpose;  Computes  friction  between  continuum 

propellant  and  tube  wall. 
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Table  B.2 


Glossary  of  Principal  Fortran  Variables 


AB 

ADVra 

AIRGAM 

AIRMW 

AIRPO 

AIRTO 

AMU(IO) 

AMUV(IO) 

ANU 

APMAX 

ASBR 

AUP 

BMU(IO) 

BMUV(IO) 

BR(IO) 

BRX(IO) 

BN(20) 

BV 

Bl(20) 

B2(20) 

CDBR 

CDMUZ 


Bore  Area 

Unload /Re load  wave  speed  in  propellant 

Ratio  of  specific  heats  of  air  in  barrel 
in  front  of  projectile 

Molecular  weight  of  air  in  barrel 

Pressure  of  unshocked  air  in  barrel 

Temperature  of  unshocked  air  in  barrel 

Array  of  coefficients  of  friction  between 
propellant  and  tube 

Array  of  velocities  corresponding  to  AMU 
Poisson  ratio  of  projectile 

Maximum  allowable  acceleration  of  projectile 

Throat  area  of  gas-permeable  breech 

Loading  wave  speed  in  propellant 

Array  of  coefficients  of  friction  between 
obturator  and  tube  wall 

Array  of  velocities  corresponding  to  BMU 

Array  of  resistive  pressures  due  to 
ob turator 

Array  of  projectile  displacements 
corresponding  to  BR 

Array  of  burn  rate  exponents 

Covolume  of  gas 

Array  of  burn  rate  additive  constants 

Array  of  burn  rate  pre-exponential  factors 

Discharge  coefficient  of  gas-permeable 
breech 

Discharge  coefficient  of  muzzle 
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CHTW 

Coefficient  of  wall  heat  transfer 
correlation 

CM 

Unreacted  propellant  mass 

CV 

Specific  heat  of  gas  at  constant  volume 

DB 

Diameter  of  barrel 

DELTAX 

Non-dimensional  mesh  spacing  in  gas  column 

DELTBX 

Non-dimensional  mesh  spacing  in  propellant 

DELYR 

Thickness  of  gas  film  used  to  lubricate 
propellant 

DRH0(2) 

Total  time  derivative  of  density  of 
propellant  at  boundaries 

DXMIN 

Minimum  allowable  mesh  spacing  in  physical 

plane 

Array  of  values  of  internal  energy 

Chemical  energy  of  propellant 

Length  of  bearing  section  of  obturator 

Array  of  values  of  velocity  of  mesh 

Ratio  of  specific  heats  of  gas 

Computational  array.  If  I corresponds  to 
the  gas  GS1(I,J)  contains  the  quantity 
px^j  at  the  I-th  mesh  point  at  the  J-th 
level  of  integration.  Otherwise  GS1(I,J) 
contains  the  value  of  Pp 

Computational  array.  If  I corresponds  to 
the  gas,  GS2(I,J)  contains  the  quantity 
pux^  at  the  I-th  mesh  point  and  the  J-th 
integration  level.  Otherwise  GS2(I,J) 
contains  Up. 

Computational  array.  If  I corresponds  to 
the  gas,  GS3(I,J)  contains  the  quantity 
pX{j(e  + u^/2gQ)  at  the  I-th  mesh  point 
and  the  J-th  level  of  integration.  Other- 
wise, GS3(I,J)  contains  o. 

IDEAL  Bum  rate  indicator.  See  File  2 discussion 

of  IDEALI. 

INT  Set  equal  to  1 on  predictor  level  and  0 

on  corrector  level  of  integration  step 


GS2(100,3) 


GS3(100,3) 


E(IOO) 

ECHEM 

ELB 

ETAClOO) 

GAM 

GSl  (100,3). 
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K(4.2) 


Array  of  derivatives  of  Xp,  Xp,  Mp  and 
Xp  at  predictor  and  corrector  levels. 


MACH 

Maximum  allowable  Mach  number  of  reactants 
relative  to  regressing  interface 

MAXDIM 

Maximum  allowable  number  of  mesh  points 

MOL 

Molecular  weight  of  gas 

NBR 

Number  of  increments  of  propellant  for 
tabular  description  of  burn  rate  coefficients 

NBRESl 

Number  of  entries  in  tabular  description 
of  resistance  due  to  obturator 

Indicator  for  calculation  of  resistance 
due  to  shocked  air  in  front  of  projectile 

Number  of  entries  in  tabular  description 
of  coefficient  of  friction  of  obturator 
as  a function  of  projectile  velocity 

Indicator  that  breech  is  gas-permeable 
or  otherwise 


NCJ 

Error  Indicator 

NDIM 

Number  of  mesh  points  allocated  to  gas 

NDIMl 

NDIM  + 1 

NDIM2 

Total  number  of  mesh  points  allocated 
when  propellant  is  treated  as  a continuum 

NDT 

Integration  counter.  Incremented  on 
both  predictor  and  corrector  levels 

NF 

Pointer  to  next  integration  level  of 
storage 

NHTW 

Indicator  that  wall  heat  loss  is  considered 
or  otherwise 

NI 

Pointer  to  current  integration  level  storage 

NMUZBL 

Indicator  that  blowdown  is  to  be  computed 
or  otherwise 

NP 

Pointer  to  previous  integration  level  storage 

NBRES2 

NBRES3 

NBRV 
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NPRC  Indicator  that  propellant  Is  treated  as 

continuum  or  otherwise 

NPRO  Print  option  indicator.  See  File  2. 

NWFR  Indicator  of  representation  of  friction 

between  solid  propellant  and  tube.  If 
positive,  number  of  entries  in  tabular 
description  of  coefficient  of  friction 
as  a function  of  velocity  of  propellant 

P(IOO)  Array  of  values  of  pressure 

PBRF  Value  of  breech  pressure  at  which  blowdown 

computation  is  terminated 

PDIA  Value  of  pressure  which  must  be  exceeded 

In  breech  prior  to  onset  of  permeability 

PRM  Projectile  mass 

PRMB  Projectile  mass  ahead  of  midpoint  of 

obturator 


PST  Initial  pressure  of  gas 

QORF(IOO)  Array  of  values  of  heat  loss,  if  mesh 

point  corresponds  to  gas,  and  wall  friction, 
if  point  corresponds  to  propellant 

ROOT  Rate  of  regression  of  interface  relative 

to  unreacted  propellant 

RHO(IOO)  Array  of  values  of  density 

RHOP  Initial  density  of  propellant  at  zero  pressure 


SIG 


SIGMAX 
S START 
T(IOO) 
U(IOO) 


Value  of  pressure  on  unreacted  side  of 
gas/propellant  interface 

Maximum  allowable  value  of  SIG 

Shot  start  pressure 

Array  of  values  of  temperature 

Array  of  values  of  velocity 


XB  Length  of  gas  column 

XBB  Length  of  propellant  column 
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XII 


y -1° 

Y - 1 Pp 

p 

XI2  e - ^ (—  - b) 

p Y “ 1 0 

XLPRI  Initial  length  of  propellant  column 

XPR  Projectile  travel 

XPROP  Initial  position  of  base  of  projectile 

relative  to  breech 


ZR(20)  Array  of  values  of  mass  fraction  of 

propellant  for  tabular  description  of 
burn  rate  coefficients 
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Table  B.3  Description  of  Input  Files 


File  1;  One  Card  (20A4)  Mandatory 


ITIT  Problem  title.  Up  to  80  alphanumeric  characters 


File  2:  One  Card  (1615)  Mandatory 


IDEALI  Propellant  burn  rate  Indicator 

0 - Measured  burn  rate  data.  File  6 required. 

1 - Langweiler  ideal  burning 

2 - Ideal  burning  with  prespecified  value  of  pressure 

on  unreacted  side  of  gas/propellant  interface  or  of 
projectile  acceleration.  Note  the  discussion  of 
SIGMAX,  MACH,  APMAX  in  File  4. 

3 - Like  2 except  that  APMAX  is  deduced  from  SIGMAX 

according  to  initial  propellant  mass.  Option  used 
for  parametric  studies  in  which  SIGMAX  is  to  be 
constant  while  charge-to-projectlle  mass  ratio  varies. 

4 - Like  2 except  that  PSTI  (File  4)  and  SIGMAX  are 

computed  from  APMAX  according  to  initial  propellant 
mass.  Option  used  for  parametric  studies  in  which 
APMAX  is  to  be  held  constant  while  charge-to-pro- 
jectile  mass  ratio  varies. 

NPRC  0 - Propellant  treated  as  rigid 

1  - Propellant  treated  as  continuum.  File  7 required. 

NPRO  Print  Option  for  logout  other  than  summary  data 

0 - Detailed  print  including  flow  profiles 

1 - One  line  summary  at  each  logout  step 

2 - Energy  trajectory  printed 

3 - Interior  ballistic  data  and  % energy  trajectory  printed 

4 - No  print  other  than  summary 

NDSK  Disc  read/write  parameter.  If  active,  unit  8 must  be  defined. 

0 - Neither  read  nor  write 

1 - Write  only 

2 - Read  only 

3 - Read  and  write 

NDSKID  Problem  identifier  if  multiple  storage  on  unit  8 

NDSKDT  Time  step  for  restart  of  problem  if  NDSK  = 2 or  3 

NPAR  Number  of  parametric  cases.  If  NPAR  > 0,  File  17  is  required. 

NBR  Number  of  entries  in  burning  rate  table,  File  6. 

Default  value  is  NBR  = 1 (Maximum  of  20) 
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NWPR 


Propellant  Wall  Friction  Parameter 

0 - Friction  between  propellant  and  tube  not  considered 
-1  - Friction  due  to  gas  film.  File  8 required. 

>0  - Number  of  entries  in  velocity  dependent  coefficient 

of  friction  table.  (Maximum  of  10).  File  9 required. 

NBRESl  0 - Obturator  resistance  not  given  as  table 

>0  - Number  of  entries  in  table  of  resistive  pressure 
versus  travel  (Maximum  of  10) . File  10  required. 

NBRES2  0 - Resistance  due  to  shocked  air  not  considered 

1 - Resistance  due  to  shocked  air  considered.  File  11 

required. 

NBRES3  0 - Obturator  resistance  not  proportional  to  setback 

pressure. 

>0  - Number  of  entries  in  table  of  velocity  dependent 

coefficient  of  friction  of  obturator.  (Maximum  of  10). 
Files  12  and  13  required. 

NHTW  0 - Heat  loss  to  wall  not  considered. 

1 - Heat  loss  considered.  File  14  required. 

NMUZBL  0 - Tube  blowdown  after  muzzle  exit  not  considered. 

1 - Blowdown  considered.  File  15  required. 

NBRV  0 - Breech  closed. 

1 - Breech  gas-permeable.  File  16  required. 


File  3:  One  Card  (415,  5F10.0)  Mandatory 

NSTOP  Number  of  integration  steps  before  termination. 

If  NSTOP  = 99999,  number  is  unbounded. 

MAXDIM  Maximum  number  of  mesh  points  to  be  used  in  continuum 

representations.  (<  100) 

NCYl  Following  step  NCYl,  NPRO  will  default  internally  to 

0 to  yield  detailed  printing. 

NCY2  Following  step  NCY2,  NPRO  resumes  the  value  specified 

in  File  2. 

TINOM  Time  interval  for  printing  (See  NPRO,  File  2) 

and  disc  storage  (See  NDSK,  File  2) . (msec) 

TISTOP  Time  at  which  computation  is  to  be  terminated  (msec) 

XSTOP  Projectile  travel  at  which  computation  is  to  be 

terminated  (ins) 
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SAFE 

DXMIN 

Safety  factor  by  which  C-F-L  time  step  is  divided. 

Must  be  at  least  one. 

Minimum  mesh  size  for  continuum  representation  (ins). 

File  4: 

One 

Card  8F10.0)  Mandatory 

DB 

Diameter  of  tube  (ins) 

XIB 

Initial  length  of  gas  column  (ins) 

PRM 

Mass  of  projectile 

SSI 

Shot  start  pressure  (psi) 

PSTI 

Initial  pressure  of  gas  (psi) 

SIGMAX 

Maximum  value  of  pressure  on  unreacted  side  of 
gas /propellant  Interface.  If  SIGMAX  = 0,  no 
restriction  is  considered,  (psi) 

MACH 

Maximum  value  of  Mach  number  of  reactants  relative 
to  regressing  surface.  If  MACH  = 0,  no  restriction 
is  considered. 

APMAX 

Maximum  value  of  acceleration  of  projectile. 

If  APMAX  = 0,  no  restriction  is  considered,  (gravities) 

File  5; 

One 

Card  (8F10.0)  Mandatory 

GAM 

Ratio  of  specific  heats  of  gas  (-) 

BV 

3 

Covolume  (in  /Ibm) 

MOL 

Molecular  weight  (Ibm/lbmol) 

ECHEM 

Chemical  energy  of  propellant  (Ibf-ln/lbm) 

RHOP 

3 

Density  of  solid  propellant  at  zero  pressure  (Ibm/ in  ) 

CM 

Mass  of  propellant  (Ibm) 

ALDEN 

3 

Loading  density  (Ibm/ in  ) 

File  6: 

NBR 

Cards  (4F10.0)  Required  if  and  only  if  IDEALI  = 0 or 

if  NBR  is  read  as  a positive  number. 

See  File  2. 
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Bid) 

B2(l) 

BN(1) 


s t 

Burn  rate  additive  constant  for  1 increment 
of  propellant  (in/sec) 

s t 

Burn  rate  pre-exponential  coefficient  for  1 
increment  of  propellant  (in/sec  - psi®^) 

s t 

Bum  rate  exponent  for  1 increment  of  propellant  (-) 


ZR(1)  Mass  fraction  defined  by  end  of  first  increment  (-) 

Bl(2)  Like  Bl(l)  but  for  2^*^  increment.  (New  Card) 


ZR(NBR)  Mass  fraction  defined  by  end  of  last  increment, 

Including  contributions  of  all  preceding  increments  (-) 


File  7;  One  Card  (2F10.0)  Required  if  and  only  if  NPRC  ^ 0. 

See  File  2. 


AUP  Compressive  wave  speed  in  propellant  at  ambient 

conditions  (In/sec) 

ADWN  Unloading/Reloading  wave  speed  (in/sec).  If  ADWN 

is  entered  so  that  it  is  less  than  the  nominal  loading 
wave  speed,  the  loading  value  is  used.  By  entering 
ADIiTN  = 0 a reversible  law  is  defined. 


File  8:  One  Card  (2F10.0)  Required  if  and  only  if  NWFR  < 0. 

See  File  2. 


VISLYR  Viscosity  of  gas  film  used  to  lubricate  propellant 

(Ibm/ in-sec) 

DELYR  Thickness  of  film  (ins) 


File  9:  One  to  three  Cards  (8F10.0)  Required  if  and  only  if 

NWFR  > 0.  See  File  2. 


AMUV(l)  First  value  of  velocity  of  propellant  (in/sec) 

AMU(l)  Corresponding  coefficient  of  friction  on  tube  (-) 


AMUV(NWFR)  Last  value  of  velocity  (in/sec) 

AMU (NWFR)  Corresponding  coefficient  of  friction  (-) 
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File  10;  One  to  three  Cards  (8F10.0)  Required  If  and  only  If 

NBRESl  ^ 0.  See  File  2. 

BRX(l)  First  value  of  projectile  travel  (Ins) 

BR(1)  Corresponding  value  of  resistive  pressure  due 

. to  obturator  (psl) 

• 

BRX(NBRESl)  Last  value  of  projectile  travel  (Ins) 

BR(NBRESl)  Corresponding  value  of  resistive  pressure  (psl) 

File  11;  One  Card  (4F10.0)  Required  If  and  only  if  NBRES2  * 0. 

See  File  2. 

AIRGAM  Ratio  of  specific  heats  of  air  (-) 

AIRPO  Pressure  of  air  In  barrel  (psl) 

AIRTO  Temperature  of  air  In  barrel  (“R) 

AIRMW  Molecular  weight  of  air  In  barrel  (Ibm/lbmol) 

File  12:  One  Card  (3F10.0)  Required  If  and  only  If  NBRES3  0. 

See  File, 2. 

PRMB  Mass  of  projectile  ahead  of  midpoint  of 

obturating  band  (Ibm) 

ELB  Length  of  bearing  section  of  obturating  band  (Ins) 

ANU  Poisson's  ratio  of  obturating  band  (-) 

File  13;  One  to  three  Cards  (8F10.0)  Required  if  and  only  if 

NBRES3  0.  See  File  2. 

BMUV(l)  First  value  of  velocity  of  projectile  (in/sec) 

BMU(l)  Corresponding  value  of  coefficient  of  friction 

. between  obturator  and  tube  (-) 

« 

BMUV(NBRES3)  Last  value  of  velocity  of  projectile  (in/sec) 
BMU(NBRES3)  Corresponding  coefficient  of  friction  (-) 
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File  14:  One  Card  (AFIO.O)  Required  if  and  only  if  MTW  * 0. 

See  File  2. 

TWALO  Temperature  of  tube  (°R) 

CHTW  Coefficient  of  heat  transfer  correlation  (-) 

Default  value  is  0.092. 

Vise  Viscosity  of  gas  (Ibm/in-sec) 

Default  value  is  10"^. 

PRNO  Prandtl  number  of  gas  (-) 

Default  value  is  0.7. 


File  15:  One  Card  (2F10.0)  Required  if  and  only  if  NMUZBL  0. 

See  File  2. 

PBRF  Value  of  breech  pressure  at  which  blowdown  calculation 

Is  to  be  terminated  (psl) 

CDMUZ  Discharge  coefficient  for  efflux  from  muzzle  (-) 


File  16:  One  Card  (4F10.0)  Required  if  and  only  if  NBRV  x 0. 

See  File  2. 

2 

ASBR  Throat  area  of  discharge  nozzle  in  breech  (in  ) 

CDBR  Discharge  coefficient  for  nozzle  (-) 

PDIA  Rupture  pressure  which  must  be  exceeded  before 

breech  becomes  permeable  to  gas  (psi) 

File  17:  One  or  two  Cards  (8F10.0)  Required  if  and  only  if 

NPAR  * 0.  See  File  2. 

COM(l)  Value  of  charge-to-projectile  mass  ratio  for  first  case  (-) . 


COM (NPAR) 


Value  for  last  case  (-) 


^(">0  nc "»( 1 o noc>o 


PROGRAM  TO  STJDY  EMD  BURNING  TRAVELING  CHARGE 

VERSION  CREATED  FEE  1 1960. 

implicit  REAL=:=B  (A-H  ,0-Z) 

REAL=:=6  MOL,  K,  MACH  • 

COMMON  /BARA/  GS1(100,3),  GS2(100,3),  053(100,3) 

RHQ(inO),  P(IOO),  E(IOO),  T(IOO),  U(IOO),  ETA(IOO) 
COMMON  /BARC/  NDT,  NI,  NF , NP , INT,  NDIM,  MAXDIM 
COMMON  /BARD/  DXHIN,  DELTAX 

COMMON  /BARE/  GAM,  BV,,MOL,  ECHEM,  RHOP , Bl(20),  32(20),  BN(20), 
1 C.  V f z R ( ? 0 ) 

COMMON  /BARF/  XPR,  VPP , CM,  XB,  VP,  AB,  pRM,  ROOT,  SIG,  SSTART 

COMMON  /BARG/  X BP  , 0 F L T B X . ^;PR  C , ND  I Ml  , MD I M2 

COMMON  /BAPH/  A UP,  A OWN , V I SL YR , DEL YR , AMOV( 1 0) , AMU ( 1 0 ) , DB  , 

3RX(10)  ,BR(10)  ,AIRGAM,AIRPO,  AlRTD,AlRMW,ThlALO, 

- P B R F , C DMU  Z , A SB  P , C OB  R , P 0 1 A , CHT  W , DR  HO  ( 2 ) 

COMMON  /RARH2/  PR'^P  ,E  L R . A NU  , 3MUV  ( 1 0 ) ,PHU(10)  ,NBRES3 
COMMON  /BARH3/  PRNn,VISG 
COMMON  /BARHA/  RESAIR.RESOR 

COMH(TN  /BARI/  NW  FR  , MBR  E S 1 , NPRE  S2  , NH  TW,  NMUZPL  ,NPRV 
COMMON  /RARCJ2/  PST,  SIGMAX,  MACH,  APMAX,  Xll,  X12, 

CDMM-CH  /BAPJ/  QORF  ( 100  ) , PRPPE  S 
COMMON  /BERG/  K(A,2) 

COMMON  /LPRO/  NPP.O 
COMMON  /RPVAR/  XLPPI,  XPRnD,NBR 

DIMENSION  nTKB)  , SAVF(3),  PD5  ( 1 OC  ) ,MBC  ( 2 ) 
dimension  COM(IO),  I TIT (20) 
niMENSION  SEGW(IOO),  E GE  ( 1 CO  ) , SEGKE  ( i OD  ) 

EOUIVALLNCF  (DT1(1),XPk) 


NCJ,  IDEAL 


DATA  R 


/ 1 5 S 0 . D ! 


3R6. 1600/ 


READ  TITLE  LINE 

20  READ  ( “^  , AS0,FND  = A10)  ( I T I T ( I ) .,  I = 1 , 2 0 ) 
REAP  AND  PRINT  INPUT  DATA 
RFAD(G ,A90) 


RE 


(6  ,A96  ) 


I D E A L I , A ’ P F C , M P K G . N D S K , N D S K I 0 , N D S K D T , N P A R , N R R , 
N^=P  iNPRESI  ,NPRES2  ,NBRES3  ,NHf  ri.NMUZBL,  NPRV 
MSTOP,  M.  AXP  I M ,NCY  1 , NC  Y?  , T INOM  , TI  STOP  , 


t!PR()I  =MPR|-! 

lOFAL- IDEAL  I 


XSTOP, SAFE ,0XM1 M 


I!i  SINGLE  S^T  OF  VALUES  IF  C/M  DOES  NOT  VARY. 


OLJl.) 


VO 

o\ 


REAP  (5,500)  OB.XIR.PRM.SSI ,PSTI ,SIGHAX,MACH, APMAX 
READ  (5,500)  G AM , B V , MDL , E CHEM , RHOP , CM , AIDE N 
IF( IDEAL!. NE.O)  GD  TO  40 
NBRA=1 

IF(NBR.GT.O)  v(3RA=NRR 
DO  30  1=1  ,NBRA 

READ(5,500)ai ( I ) ,B2 ( I ) ,BN(I ) ,ZR( I ) 

30  CONTINUE 

40  IF (NPRC.NE.O)  READ(5,500)  AUP.ADWN 

IF(NWFR.LT.O)  READ(5,500)  V I SLYR  , DE  L YR  , , ^ 
IF(NWFR.GT.O)  READ(5,500)  ( AMUV( 1 ) , AMU ( I ) , I = 1 , NWFR ) 
IF(NBRES1 .NE .0)  READ(5,500)  ( BRX ( I ) , BR ( I ) , I = 1 , NBRE S 1 ) 

IF (NPRES2.NE .0)  REA0(5,500)  A IRGAM , A I RPO , A I RTO , A I RMW 
IF(NBRES3.E0.0)  GO  TO  45 
RFAD(5,500)  oRMP,ELP,ANU 

REAP(5,500)  (3MUV( I ) ,BMU( I ) , 1=1 ,NBRFS3) ^ ^ 

45  IF (NHTW.NE.O)  REA0(5,5CO)  T W ALO , CHT W , V I SG , PR NO 
IF(VISG.LT.l.D-lO)  VISG=l.D-5 
IF(PRMO.LT.l .3-10)  PRNO=0.700 
IF (CHTW.LT.l .0-10)  CHTW=0.092D0 
IF(NMUZ3L.NE .3)  REA0(5,5OO)  PBRF.CDMUZ 
IF (NBPV.NF.O)  RFAD(5,500)  A SBR , CDB R , PD  I A 
MPR  = 1 

FOR  =ECHEM=:-'(  GAM-1  .DC) 

AD  = 3.1415926n0/4.0O='.<D5-DB 

VI=AR=:=XIP 

CMI=CM 

CT=CM+VI«PSTI/( FOR+PSTI^BV) 

IF  (npap.eq.o)  go  to  ro 

RFAD(5,5C0)(CDM(n,I  = l,NE>AR) 

50  CT=COM  (NPR)=>PRM 

rOMPUTE  SIGMAX  AMD  PST  I BASED  ON  APMAX 

IF  ( IDEALI.EQ.4  ) IDFAL  = 2 

IF  ( lOEALI .NE.4  ) GO  TO  70 

CPR  = APMAXF-(orm  + CT)/AB 

T P 1 = V 1 A PM  A X / A B + FD  R -CP  R ❖ R Y 

TPSQ=TP1-TP1 

TP2=4  . nOF'3V«CPR--:-FDP 

r’STU  (-TPl  + nS3RT(TPSG+TP2)  )/(2.D0=:=BV) 

SIGNAX=PSTI 

70  Cl  =PSTI*VI/(  FOR+PST  IF-BV  ) 

VC=CT/ALDFM 

CM=CT-CI 

RHnp=CM/ ( vc-vi ) 

CM  I = CM 
f’O  PST  = PSTI 
CTnT=CT 
ETnT  = CT=:=ECHFM 


r 


<£> 

'-I 


WRITE  (6,^^0)  (ITIT  (1) 

ITR  I TE  ( 6 , ‘320)  I DE  AL  I , hPRC  , NPPO  , NDSK  , liDSK  ID  , ND3K  DT  , MP  AR  , SBR  » 
V,  ^ P PFS  1 , NJBRF  S2  , BPE  S?>  ,NHTW  , NPUZSL  t S'BRV 

WRITE  (6,3?'^)  MS"  nP  , RAXO  I M ,MC  Y1  , MCY2  , T IMP'S  T 1 STOP  , 


XSTCP,  SATE  , DX'^!!  F' 


CPT’PliTE  APM-AX 


C^N  EIGMAX 


IF  ( I DEAL  I . E V. ? ) IDEAL^E 

IF  (IDFiALI.EQ.3)  A P MAX  = S I GM  A XPA  3 / ( P RR  + CM  ) 

[ "^ALDFM^^SI^  DB  ,X I R ,PRM, CM.PST , S I GM AX , M A CH , AP M A X , C OM { NPR ) , VC, 

'WRITE  (6| A60)  ( I TIT ( I ) , I =1  ,20) 

INITIALIZE  CDVSTAMTS 

TMOM^l .n-3PTI RDM 
TSTPP^ 1 . D-3*TI STOP 
LINE=0 
NSTEP=P 
SSTART=SS1 
NPKT=0 
r!EXIT=0 
DUP=D.r-0 
PM AX  = PST 
PMAXA=PET 
MPPT=0 
yB=XIE 
ri3C(  1 )=r 
NBC(2)=0 
IF  ( C M . L ^ . 1 . 

IF  (F’PL.LT.l 
CV^P/MPL/  (Gi, 

T IPE  = O.DO 
TPC’T  = 0.nn 
RDF'T  = 0 .00 
SIG^O.RO 
VB^O .DO 

V p r/  -p  ^ n 

VPP^n , r 0 
PL''RS  = o.  no 
PE'^LSI  =0.00 
KESLS2  =0.00 
PPPFM’  S=0 .00 
STf'AX=0.  no 
AKGMAX=0 . no 
O P K A V = 0,0  0 


n - 1 r ) N!  r 
. C - I 0 ) ! 
M-1 .00  ) 


0 7=  2 

PL  = 2 -.DO 


PF 


, no 


noo 


(O 

00 


RESOB=O.DO 

DPMAX=0.D0 

DPMIN*0.D0 

CTDELM*0.00 

ET0ELM*0.00  ^ 

orhoTi»=o;oo 

0RH0(2)=0.D0 
DO  94  1 = 1.8 

94  kTi.D'O.DO 
00  95  1-1,100 

95  OORF(I)=O.DO 

XI 1=GAM/ (GAM-1 ,D0)«PST/RH0P 
X r2=ECHEM-PST/( GAM-1. 00) #( 1 .DO/RHDP-BV) 

XLPRI*CM/(RH0P4AB) 

XBB=XLPRI 

XPROP  = CM/RHOP/AB-fXB 

IF(NBRES2.NE.D)  WRITE(6,840)  AIRGAM ,A IRPO , AI RTO, AIRMH 
IF (NHTW.NE.O)  WRITE(6,850)  TWALO ,CHTW , V I SG , PRNO 
IF(NMUZBL.NE ,0)  WRITE(6,860)  PBRF .CDMUZ 
IF(NBRV.NE.O)  HRITE{6,870)  ASBR ,CDBR , PDI A 
IF(NBRES1.NE  .0)  HRITE(6,830)  < BRX ( I ) . BR ( I ) , I =1 ,NBRE SI ) 
IF(NBRES3.NE ,0)  WRITE(6,845)  PRMB ,ELB , ANU , { BMUV ( I ) , BMU ( I ) , 

^ I”!  NBRES3T 

"write  (6,540)  GAM,RV,M0L,ECHEM,RHDP,B1( 1) ,B2(1 ) ,BN( 1) ,XLPRI 
IF (NPRC.NE.O)  WRITE(6,800)  AUP.ADWN 
IF (NMFR. LT.O)  MRITE(6,310)  VISLyR.DELYR 


IF(NWFR.GT.O) 
_L  --|,0j 


WRITE (6,820)  ( AMUV ( I ) ,AMU( I ) , 1=1 ,NMFR ) 

GO  TO  lio 


IF  (NBR.EQ 
WRITE  (6,690) 

WRITE°(6^76o?^I ,B1 ( I ) ,B2( I ) ,BN( I ) ,ZR( I ) 

100  CONTINUE 
no  WRITE  (6,550) 

WRITE  (6,470)  ( I TI T ( I ) , I = 1 , 20) 

IPRt=l 

IF  (NPRO.EQ.l)  WRITE  (6,570) 

IF  (NPR0.EQ.2  WRITE  (6,630) 

IF  (NPR0.EQ.3)  WRITE  (6,610) 

IF(NOSK.EQ.O)  GO  TO  129 
REWIND  e 

IF(NDSK.LT.2)  GO  TO  123 
RESTART  OF  MOST  RECENT  CASE 

121  READ(8,END=122)  MO  SKI  D , MD  SKDT  ,MPRC , MD  IM,  MDI  M2 
Ig(^g5K| j.EO.NOSKin.ANO.MOSKOT.EO.NOSKDT)  GO  TO  125 

122  WRITE(6,790)  NOSKID.NOSK 
CALL  EXIT 

123  IF(ND5KID.LE.l)  GO  TO  129 


XPROP 


oooo  noo 


12^ 


l?b 


129 


READ(8»END=1 22)  MDSKIO 
IF(MDSKID.NE .99999)  GO  TO  12^ 

BACKSPACE  B 
GO  TO  129 
BACKSPACE  8 
CALL  PEFIT(0,1) 

IEK’D=MDIM. 

IF(MPRC.E0.1 ) IEND=MDIM2 

READ(8)  M0S<lD,NSTEPiNPRC.NDIM,NDIM2  , NOT  , MI  , NIP  , NF  . ND I Ml  , N 0C  . 
NPRT.NBRT.SSTART.PDIA.PHAX.PMAXA.STMAXj.  AKGMAX. 
DELTAX,  OELTBX .DTl.TIME .RDOT.SIG.XBB.XLPRIjXPRnp, 

TOOT  T,  IGSI  (I.NF)  ,GS2(  I,NF)  ,GS3(I  ,MF  ) ,1  = 1 .lEND) 

T P RT •TIME 
NMPRC=NPRC 
SAVE(4)=XB 
BACKSPACE  8 
GO  TO  130 
CALL  BARI 
NF=1 


PRINT 


130  NDIMM=NDIH 

IF (NPRC.EQ.l ) NDIMN=NDIM2 
CALL  BAR2  (1  , MD I MM , NF , XB ) 

IF (NBRV.EQ.O)  GO  TO  135 
IF(P(1).GE.P0IA)  MBC(1)=1 

PRINT  AT  BURNOUT  AND  AT  EXTREMA  OF  PRESSURE 


COMPUTE  SnUMn  VELOCITY  AND  MACH  NO. 

135  AO=DSQRT  ( G'?G  AM<=p  ( MD  I M ) /RH  0 ( NO  I M ) / U . DO- BV=:=R  HO  ( ND  I M ) ) ) 
AMACH  = r-ABS(  U(  MDIM)  -VB)  /AG 


COMPUTE  PROJECTILE  ACCELERATION  IN  KILO-G:S 

IF  (NBC(2).E0.1 ) GO  TO  138 
AKG=0.n0 

IFCnDT.GT.O)  A<G=<{ 2,2) /G/IOOO.DO 
138  MAND=0 

IF (NNPRC .MF.NPPC ) MAND=1 
NNPRC=NPRC 

IF  (NBRT .Gt. 1)  GO  TO  150 
IF  (CM.LE.l.D-lO)  GO  TO  180 
GO  TO  150 
180  N8RT=NBRT+1 
PPRP.0  = P(1) 

PB3n=p(NniM) 


STRBO=SIG 

XBO»XPR 

TBO  = TIME«.1.03 

VB0*DT1(2)/12.D0 

AMBO=AMACH 

150  IF  (NBRT.EO.l)  MAN0=1 
PBITA=O.DO 

fP  ?P?lirif^5^ITA)  PBITA=P(I) 
160  CONTINUE 

IPBIT=PBITA 
PBIT=IPB IT 
PMAXA=PMAX 

PMAX=PBIT  ^ 

IF  (PBITA.GT.PPMAX)  GO  TO  170 
GO  TO  180 
170  PPMAX=PBITA 
PBMAX=P(NDIM) 

PBRMAX=P(1) 

STRMAX=SIG 
XPMAX=XPR  , , 

TPMAX=TIME«1 .03 
VPMAX=DT1 (2)/12.00 
NSPMAX=NStEP 

AMPM=AMACH 

180  DPMAXA=P(1)-P(NDIM 

IF (DPMAXA.LT.OPNAX ) GO  TO  182 

DPMAX=DPMAXA 

PBPKX=P(NDI8) 

PBRPMX=P(1) 

STRPMX=SIG 

XPPMX=XPR 

TPPMX=TI ME*1 .03 

VPPMX=DT1 (2)/12.00 

NPMX=NSTEP 

ZPMX=1.D0-DT1(3)/CMI 

AKGPMX=AKG 

AMPMX=AMACH  , , „ 

182  IFIDPMAXA.GE.DPMIN)  GO  TO  18«f 
dpmin=dpmaxa 

PBPMY=P( NDIM ) 

PBRPMY=P ( 1 ) 

STRPMY=S IG 
YPPMY=XPR 
TPPMY  = TI  .03 

VPPMY=0T1  (2)/12.r)0 


fTOO 


NPmy=NSTEP 

ZPMY=1.D0-DT1(3)/CMI 

AKGPMY=AKG 

AMPKY=AMACH 

18^  IF  (AKG.GT. AKGMAX)  GD  TO  190 
GO  TO  200 
190  AKGt'!AX  = AKG 
PBPAM=P(1) 

PBAM  = P(NDI8I) 

STRAM=SIG 
XAM=XPR 
TAM  = TIME-':'1.D3 
VPAM=DT1 (ZIXIZ.DO 
ZAM=^1.D0-DT1  (3)/CMI 
NSAM=NSTEP 
AMAM=AMACH 
200  TAME=TIME--^1 . 03 

IF  (NBC( Zl.EQ.l ) GO  TO  205 
VELF=DT1 (2)/12.DO 
Z=1 .DO-DTl (31/CMI 
205  IF  (SIG. GT. STMAX  ) GO  TO  210 
GO  TO  220 
210  ASTMAX=AKG 
PBRSTH=P(1) 

PeSTM=P( NDIM ) 

SIMAX=SIG 

X5TM=XPR 

TSTM=TIME«1.D3 

VPSTM=DT1 (2) /12 .DO 

ZSTM=l.D0-nTl(3)/CRI 

NSTM=NSTEP 

AMSTM=AMACH 

220  IF  (NPRQ.EO.A)  GO  Tp  310 
IF  (NSTEP.GT.NCY1)  NPP0=0 
IF  (NSTEP.GT.NCY2)  NPR0=NPR0I 
IF  (DAB5(TIME-TPRT) .LE .l.D-10)  GD  TO  230 
IF  (MAND.EO.O)  go  to  335 
230  LINE=L  INE  + NDIM+IR 

IF  (LINE. LT. 55)  GO  TO  2A0 
LINE=NDIM+1R 

IF  (NPRO.GT.O)  GO  TO  2<^0 
WRITE  (5  ,550  ) 

COMPUTE  segment  VOLUME 


2^0  FAC=AB=?XB=:-DELTAX 

SEGWd  ) = FAC*.5D0=;=RHn(l  ) 

SEGW(NDI  M)  = FAC=:=.5D0«RHD(NDIH) 

SEGEd  ) = FAC=:=.5D0-:-RHn(l  )*E  d ) 

SECEJNDI  M)  = FAC*.5DO«RHO(NDIM)=:=E(NDIM) 


linn  nnn  nnn  nnn  non  non  non 


i 


SEGKE(1)=FAC«.5D0=:=RH0(1)#U(1)=c=«2/(2.D0^G) 
SEGKE(NDIM) =FAC«.5DO«RHn(NDlM)*J<NOlM)**2/( 2 .DO-G) 
TSEGw  = SEGW(  1)*SEGW(NDIM) 

TSEGIE=SEGE(  D + SEGE  (NOIM) 

TSEGKE=SEGKE(1 )*SEGKE(ND1M) 

K0IM=NDIM-1 
00  250  KK=2,KDIM 

SEGMENT  MASS 

SEGH(KK)=FAC«RHO(KK ) 

TSEGW=TSEGW*SEGW{KK ) 

SEGMENT  internal  ENERGY 

SEGE(KK)  =FAC-RH0(KK  )=S=E  (KK) 

TSEGiE=TSEGIE*SEGE(KK) 

SEGMENT  KINETIC  ENERGY 

SEGKE(K!<)=FAC4=RH0(KK)-U(KK)=S==9'2/(2.D0«G) 

TSEGKE=TSEGKE+SEGKE(KK) 

250  CONTINUE 

CHEMICAL  AND  KINETIC  ENERGY  OF  UNBURNT  PROPELLANT 

CHEUPR=CM«ECHEM 

AKEUPR  = CM=:'VPR«-2/{  2 .DO-G ) 

PROJECTILE  KINETIC  ENERGY 

PRKE=PRM=!'VPR-<'2/(2 .004=G) 

TOTAL  MASS 

TMASS=TSEGW*CM  ^ 

CTDEL  = 100.DO«=(  1 .DO-TmaSS/CTOT) 

IF(nABS( CTOEL) .GT.OABS(CTDELM) ) CTDELM=CTDEL 

TOTAL  ENERGY 

TENG  = TSEGIE*TSEGKE-»CHEUpR-»AKEUPR+PRKE 
ETDEL=10O.D0*( 1 . DO-TENG/ETOT ) 

IF (DABS ( ETDEL) . GT. DABS ( ETDELM ) ) ETDELM=ETDEL 

COMPUTE  percentage  ENERGY  BALANCE 

PIE=TSEGIE*IOO.DO/TENG 

PKE=TSEGKE«IOO.Dn/TFNG 

PCUPR=CHEUPR«100.00/TENG 


o<  oc^o  ooo  ooo  ooo 


PKFLiPP  = AKeUPR*100.DO/TFNn 
PPRKE  = PRKE-=:a  30.  DO/TENf, 

PI  TT  = PIE+PKE-»-PCUPR  + PKEUPR  + PPRKE 
EIT=DABS(U(NDIM)-VB) 

B I T = B1T/DSQRT  ( G^GAH^P  ( MDI  M)  /RH0{  NOT  t-1 ) / ( 1 . D0“  BV<=R HO  ( ND  I M ) ) ) 
n02601=l»NDlM 

260  PGS( I )=DFLnAT( I-l) ❖XB^DELTAX 
IF (NPRC. EQ.3)  GO  TO  266 
DO  26?  I=MniMl ,N0IM2 
.265  PaS(I)=XB+DFL0AT(I-NDlHl)«XPB-DELT3X 


CHECK  OUTPUT  OPTIONS 
266  IF  (NPPO.GT.O)  GO  TO  270 

PROFILE  DISTRIBUTION  OUTPUT 


WRITE  (6,560)  N STE P , T A HE , DT 1 , ROOT , S I G , B I T , AKG , RE SA I R, R E SOB 
WRITE  (6,570)  T HAS S , T SEGW , CH 

WR  ITE  (6,5B0 ) TF NG , T SE G I E , T SE6< E , CHEUPR ,AKEUPR ,PRKE ,PI TT , P I E . PK E , 
1 PCUPR,PKEUPR,PPRKE 
WRITE  (6,590) 

I ),RHQ(I  ),P(  I ) ,T(I  ) ,U(  I ) ,SEG<E(I  ) ,SEGE(I  ) , 

15EGW(I)iI  = lfNOIM,) 


IF (NPRC.EO.l ) WRITE(6,601) 
GO  TO  310 


270  IF  (NPPO.EQ.l) 
IF  (MPPQ.EQ.2) 


GO  TO  290 
GO  TO  280 


(PnS( I ) ,RH0( I ) ,P( I ) ,U(I ) ,I=NDIM1 ,NDIM2 ) 


ONE  LINE  IB  DATA  ♦ ( ENERGY  PRINTED 

PBR=P( 1) /inoo.Do 

PRA5E=P(NDlH)/inO0.nO 

STRESS=SIG/1000.D0 

WRITE  (6,620)  TAME  , XPR  , VE  Li^  , AK.G  , PB  R , PB  A SE  , STRE  SS  , Z , DT  1 ( A ) , ROOT  , BIT 
1 ,PIF ,PKE,PCUPP ,PKFMPP ,PPRKE,NSTEP 
GO  TO  300 

ONE  LINE  ENERGY  TRAJECTORY 

230  WRITE  (6, GAO)  T AHE , XPR , V ElF , TEN G , TS EG  I E , T SE GKE , CHE J PR , AKE UPR , PRKE , 

1 pitt.pie,pke,pcupp,pkfupp,pprke 

GO  TO  300 

290  WRITE  (6,680)  T A H.F  , XPR  , VE  LF  , P ( 1 ) , P ( NO  IH  ) , DT  1 ( 3 ) , Z , DTI  ( A ) , DT  1 ( 5 ) , 

1 RD0T,SIG,3IT,NSTFP 


PRINT  TITLE  LINE  AFTER  50  TIME  STE^S 


300  IPRT=IPRT+1 

IF  (IPRT.LT.50)  GO  TO  310 


oon  ooo  opo 


WRITE  (5,550) 

WRITE  ( ITIT(I)  ,1  = 1,20) 

IF  (NPRO.EQ.l)  WRITE  (6,670) 

IF  (NPR0.E0.2)  WRITE  (6,630) 

IF  (NPR0.EQ.3)  WRITE  (6,610) 

I P R t - 1 

310  IF  •(DABS(TIME-TPRT ) .GT. 1.0*10)  GO  TO  320 
MPRT=NPRT+1 
TPRT=TPRT  + TN3‘1 

320  IF  (IDEAL. EQ.O)  GO  TO  330 

CHECK  MACH  NUMBER  OF  REACTION  PRODUCTS  IN  IDEAL  CASE 

IF  (NPR0.GT.0.0R.NBC(2) .EQ.l)  GO  TO  330 
IF  (BIT.GE.l .DO)  WRITE  (5,660) 


CHOOSE  TIME  STEP 

330  IF(NDSK.NE.1.AND.NDSK.NE.3)  GO  TO  335 
IEND=NDIM 

IF(NPRC.EQ.1  ) IEND  = NDIM2  ^ u ..  .. 

^«RITE(8,  fjg«;0jNfT|P,ggRCjg0IM^NgI«2^NDT.N..JP.NFj;;DJ^^ 


335  IF 

DT=TN0M 


NRKI,r<brl  , r u 1 A , A ,r  rift  A«  , i I HH  A , , 

DELTAX.DELTBX  ,dti,time  ,RD0t,SIG,XBB,XLPRI  .xprCip, 
PPMAX.IgsI (I,NF) ,GS2(I,NF) ,GS3(I,NF) ,I=l,fEND) 
.EQ.l)  GO  TO  A20 


COURANT  STABILITY  CONDITION  FOR  FLOW 


IER  = 0 

CALL  BAR4  ( TSET ,XB , XBB , SAFE , lER) 

IF  ( lER.EO.l  ) G(1  TO  AAO 
IF  (TSET.LT.OT)  DT=TSET 
BIT=DAFS(XB4=Q0RF(NDIM)/GS3(NDIM,NF)  ) 
IF  (BIT«DT.GT. 0.100)  DT=0.1DO/BtT 
IF  (SIG^DT.GT. 1 .DO)  DT=1.D0/SIG 
^ (TIME+DT.GT.TSTOP)  DT=TSTOP-TIME 
( VPR. LT. 1 .0-10)  GO  TO  3A0 


IF 

IF 


3A0  IF 


BI  T= (XSTOP-XPR )/VpP 
IF  jDT.GT.BIT)  DlfBIT. 


..  Itime  + ot.gt.tprt  ) dt  = tprt-time 

350  IF(N8C(2  ) .EQ.l ) GO  TO  365 
CALL  GETK  (1) 

XBBP=XB3 

on  360  1 = 1. 

SAVE  ( n = DTl  ( I ) 

360  nTl(I)=nTl(I)*K(I,l  )«DT 
X5fi=XPR-X3*XT3*XLPP I 
SAVf  (5)  = VB 


105 


365 


365 

370 


375 


376 


377 

37P 


IF  (Cf-'i.LT.l.n-lG)  CM^C.OO 
IFICM.LT. 1.3-10)  SAVF(3)=O.DO 
IF  (XB.GT.XPR+XPRaP-l.D-6)  XB-XPR+XPRDP 
CALL  3AR3  ( 1 , 5 A VF  ( -^  ) , VE  , XBBP  , VPR  , D T ) 

IF (WBC ( I ) .F3 .0)  CALL  SPEECH  ( S AV E U ) , X B , OT  ) 

IF  NBCn  ) .E3.1  ) CALL  OUT  F LO  ( 1 . S A VE  ( A ) , XB  , OT  , 1 , DO  ) 
IFlflPRC.EO.l  ) CALL  B ASE  PR  ( XPBP  , DT  ) 

IEP2=0 


IF(NBC(2 ) .FO.O)  CALL  BASE  ( SA VE ( A ) , XB  , XBB P , DT , I E R 2 ) 
IF(NBC(2).EQ.l)  CALL  OUTF LO ( ND I M , S A VE ( A ) , XB , DT , - 1 . DO) 
IF  (IEP2.E0. 1)  GO  TO  A2n 
IF  (NCJ.EQ.l)  GO  TO  390 
IF  (NPRC.EQ;  1 ) CALL  SIGCHK, 


IF  (NWFR. NE.O .AND.NPPC.EQ. 1 ) CALL  VELCHK 
IF(NBC(2 ) .EQ.l  ) GO  TO  366 
CALL  GETK  (2) 


CALL  BAR3  ( 3 , X B , VB , X B3 , V » R , DT ) 

IF (MBC(2) .EO.l ) GO  TO  375 
DO  370  1=1, A 

DTK  1 ) =SAVE(  1 )+0.5D0::=(  K(  I ,1  )+K(  I ,2)  )=:=DT 


XBB  = XPP-XB  + XTB  + XLPR  I 

IF  (CM.LT.l.D-lO)  CM=0.p0 

IF (CK.lt . 1 .3-10 ) SA VF ( 3) =0.D0 

IF  (XP-.GT.XPR+XPR0P-1.D-6)  XB  = XPR  + XPROP 

IF (NBC( 1 ) .EO.O)  CALL  BREECH  { SAVE ( A ) , XB ,DT ) 

IF (NBC( 1 ) .EQ.l ) CALL  OUTF LQ ( 1 , S A VE ( A ) , XB , DT , 1 . 00  ) 
IFINPRC.EQ.l ) CALL  BASEPR ( XBBP ,3T) 

IF(NBC(2).EQ.O)  CALL  BASE  { SA VE ( A ) , XB , XBB P , DT , I E R2 ) 

IF (KBC ( 2 ) .EO.  1 ) CALL  OUT  FLO (MD IH , S A VE ( A ) , XB , DT , - 1 . D 0) 

IF  (IER2.E0.I)  GO  TO  A20 

IF  ( NC J.EQ.  1 ) GO  TO  390 

IF(NPRC.EQ.I ) CALL  SIGCHK 

IFINWFR.NE.O.A'JD. 'PRC. EO.l)  CALL  VELCHK 

OLnS=(GORF(I)+QGRF(NDlM) )«0.5DC 

NniML=ND lH-1 


DO  376  I=2,MniHL 
QLnS  = OLQS  + QORF ( I ) 

CONTINUE 

0 L n S S = 0 L 0 S A B n T =:=  X B X:  n F L T A X Q L 0 S S 
PF  SLSKRE  SLS1+  ( PP  S A I P+ RE  SOB  ) *AB*DT^  VPR 
IF,  (NPRC.EO.O)  GO  TO  37.3 

RESLS=  (U(NDI  AI  ) =:--Q  3 R F ( N D I fU  ) ♦ U ( N3  I M2  ) -QORF  ( ND  I H2  ) )v3  .500 


I!nif-'L=ND  IMKl 
MD IKR  =ND IM2-I 
DO  377  IxMDl  .NPIMP 
PESLS  = RESLS  + U(  I )=:=3DRF(  I ) 

C(!r:T  I Ml  If 

pt:  SL‘^^="  ''SLS?-RrSL'^-AB^nT=:=yrB-DELT^X 

G Mir  M 7 n 

f F SLS3  =''r  SLS?-P-F'^P  S=-A B«')T=:=X KB^V PR 


IF(NBC{2).E0.0)  CALL  REFIT  (l.NF) 

NSTEP=NSTEP+1 

TIME=TIME+DT 

TEST  FOR  TERMINATION 

IF  (NSTOP.EQ. 99999)  GO  TO  380 

IF  (NSTEP.GE.NSTOP)  nexit=i 

IF  (TIME .GE.TSTOP)  NEXIT=1 

IF (NBC(2).EQ.l ) GO  TO  383 

IF  (XPR.LT.XSrOP-1.0-3)  GO  TO  3B5 

IF (NMUZBL.EQ.O)  GO  TO  38A 

CM=O.DO 

VPR=O.DO 

T1MZ=TAME 

P1MZ=P(1 ) 

PNMZ=P{NDIM) 

SIGMZ=SIG 
AMACHZ=AMACH 
NSTEPZ=NSTED 
WRITE  (6,885) 

XB=XPR+XIB+XLORI 
SAVE(‘»)  = XB 
VB=O.DO 
NPRC=0 

WWfl)  Igt.PBRF)  go  to  385 
NEXIT=1 

IF  (NEXIT.EO.l)  TPRT=TIME 

GO  TO  130 

NEXIT=1 

TPRT=TIME 

IF  (NCJ.NE.l ) GO  TO  130 
NF=NI 

IF  (INT.EQ.O)  NF=NP 
DO  <tOO  1=1,5 
DTKI  )=SAVE(  I) 

PDnT=VP-VPR 

IF(MPRC.EQ.1 ) RDnT=VB-GS2(MDlMl ,NF) /GSl (NDIMl.NF ) 
XBP  = XPR-XH  + Xl3-*-XLPPI 
GO  TO  130 
CALL  EXIT 

PRINT  OUT  summary  OaTA 

IF  (PPMAX.GT.PSTI)  r.n  TO  «f30 

SET  MAX.  PRESSURE  TO  INITIAL  CONDITIONS 

STFrAX  = PSTI 
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WRITE 

WRITE 

WRITE 


PBRAX=PSTI 

PBRMAX=PSTI 

PPI1AX  = PSTI 

AMPM=0.D0 

ZPMAX=0.D0 

VPMAX=0.D0 

XPHAX=0. DO 

TPMAX=0.D0 

NSPMAX=0 

AKGPM  = PST  I::=AB/(  (PRM  + CMI  )«1000.00) 

A30  WRITE  (6,710) 

WRITE  (6,<f70)  ( ITIT  { I ) , I = 1,20) 

WRITE  (6,^80)  VELF,PPMAX,A<GMAX,STMAX 
WRITE  (6,720) 

WRITE  (6,770) 

^ TBP.XPD.VBQ ,AKGBO,DUM,PRRBO ,P3B0,STRB0,Z .AMBO,NSTBO 

( 6 , 730 ) 

6,770) 

WRITE  (6,780  ) TPHA  X , XPyi  A X , VPMAX  , AKG  , PPM  AX  , PBRM  AX  , PBMAX  , STRM  AX  , 

1 ZPMAX,  AMPM  .'(SPMAX 
WRITE  (6,7A0.) 

WRITE  (6,770) 

WRITE  (6  ,780)  T AM, X AM , V P AM, AKGMAX , DUM , PBR AM , PB AM , ST  RAM , Z AM  , AMAM , 

1 N S A M 
WRITE  (6,780) 

WRITE  (6,770) 

WRITE  (6,780)  T STM , X STM , VPSTH , ASTMA X , DUM , PBP STM , PBS TM , STMAX , ZSTM , 
1 AHSTM.NSTM 
WRITE  (6,760) 

WRITE  (6,770) 

IE  (NCC( 2) .EQ. 1 ) GO  TD  A?8 
P1H7=P{1) 

PNMZ=P(NniM) 

T1HZ=TAME 
S I GHZ  = SIC 
AMACHZ=AMACH 
NSTFPZ=WSTEP 

A38  WRITE  (6,780)  T 1 MZ  , Xo ? , y p LF , AK G , DUM , P 1 MZ , PWM Z , S I GM Z , Z , AM A C HZ  , 

P NSTEP? 

WRITE (6, 76A ) 

WRnE(6,  770) 

WRITE  (6,  780)  TPPMX  .XpPMX  , VPPMX  , AK  GPMX  , DUM  , PP.  R^MX  , P 3PMX  , STRPMX  , 

R 7 PHX, AHPWX ,NPMX 

WRITE (6,766) 

WRITE (6,770) 

WRITE  ( 6, 780)  TPPMY  , YPPHY  , VPPMY  , AKGPMY  , D'JM  , PB Y , P 3 PM  Y , STR  ^M  Y , 

7 P r<  Y , /.  H P M Y , M P M Y 

i-R]  T^^  (6, 8 80)  CTOTL  .OTDFLM  , F T DF  L , E T D E LH  , OLHS  5 , P ES  L S 1 ,RESLS2 


!F  (unOK  .EO.  l.'1R  .WORK  .F^ 


(8)  MENDOF 


440 


C 

C 

C 


SWITCHES  FO^  VARYING  C/M  PARAMETRICALLY 

IF  (NPAR.EQ.O)  go  to  20 
NPR=NPR+1 

IF  (NPR.EQ.MPAR*!)  GO  TO  20 
NDSKlD^NDSKlb*! 

GO  TO  60 
WRITE  (6i510) 

GO  TO  420 


450  FORMAT  (20A4) 

460  format  (IHl  ,10X 
120HVERS10N  . - 
470  FORMAT  (1X,20A4/) 

480  FORMAT  ( 20X , 15HMUZ Z LF 


jWA  ,42HSJMULATI0N 


OF  END 

)//lX,20A4/) 


BURNING  TRAVELING  CHARGE, lOX, 


VELOCITY, 6X,5H(F/S) , 3X , F7 . 0/20X , 16HMAXIMUM  P 
^R|SSyRE,5X,5H(PSir.  rX,F9.0/20X,26HMAXIMyM  ACCELERATION  (K-G)  ,3X,F7 


o 

00 


ESSURE,5X,5H  PSI  ilXiF9.0/20X,Z6HMAXlMy3  ALL 
0/20X,l4HMAXIMUM  STRE SS, 7X ,5H(PSI ) ,1X,F9.0/) 
490  F0RMAT116I5) 

495  FORMAT(4I5.5F10.0) 

510  format  IbIH^NEG.  square  ROOT  ERROR  IN  BAR4) 
520  FORMAT! 10X,12HC0NTROL  DATA// 

4'42H  IDEAL  BURN  PATE  LAW 

*42H  CONTINUUM  MODEL  OF  UNREACTEO  PROPELLANT 
«^42H  PRINT  OPTION 
<=42H  DISC  READ/WRITF  PARAMETER 
=:=42H  PROBLEM  ID  FOR  DISC  READ/WRITE 
<'42H  INTEGRATION  STEP  FOR  DISC  RESTART 
*42H  NUMBER  OF  PARAMETRIC  CASES 
"42H  NUMBER  OF  BURN  RATE  PARAMETERS 

PROPELLANT  WALL  FRICTION  PARAMETER 
«'42H  NUMBER  OF  ENTRIES  IN  PROJECTILE  BORE 
❖42H  resistance  TABLE 

*42H  indicator  FOR  AIR  RESISTANCE 
❖42H  NUMBER  OF  ENTRIES  IN  OBTURATOR  FRICTION 

table 

«42H  WALL  heat  LOSS  OPTION 
❖42H  TUBE  BLOW-DCWN  OPTION 
4=42.H  RECOILLESS  TUBE  OPTION 
525  F0RMAT(5X,22HINTFGPATIDN  PARAMETERS// 

>:-42H  MAXIMUM  NUMBER  OF  STEPS 
*42H  maximum  number  OF  MESH  POINTS 
=N42H  FIRST  cycle  TO  BE  PRINTED  WITH  AXIAL 
:42H  DISTRIBUTION 

*42H  LAST  CYCLE  TO  RE  PRINTED  WITH  AXIAL 

niSTPIRUTir'N 

-42H  TIM'"  ST‘=°  FOP  LOGOUT  CYCLE  (MSEC) 


, 15/ 

, 15/ 

. 15/ 
,15/ 

, 15/ 
.15/ 
.15/ 
.15/ 

,15/ 

.15/ 

/ 

,15/ 

,15/ 

, 15/ 
,15//) 

,15/ 

,15/ 

/ 

,15/ 

/ 

,15/ 

,F10.4/ 


❖ PRDBLl^M  ■ TERHINAT  ION  T IME  (MSEC) 
❖A2H  MAXIMUM  PROJECTILE  TRAVEL  (INS) 
=:=A2H  STABILITY  SAFETY  FACTOR 
-A2H  MINIMUM  MESH  SIZE  (INS) 


,F10.3/ 

,F10.3/ 

,F10.3/ 

.F10.3//) 


530  FORMAT  { 1 1 X , 3 7H TUB F , PR 0 JECT I LE  AND  CHARGE  PR OPER T I E S// A 2H  BORE  DIA 

TaITacPSP  ,/ajh  PRC,PeLLA^^''li?/s)^”  PaSITIOM  DF  RE 

3,F10.3/A2H  PROJECTILE  MASS  (LBM)  ,F10.5/A2H  CHA 

^RGF  MASS  (LBM)  ,F10.3/A2H  INiflAL  PRESSURE 

S(PSI)  . ,F10.0/A1H  MAXIMUM  PRESSURE  IN  UNREACTED  P 

6RQPELLANT,/A.2H  (PSI),  IF  IDFAL  = 2 ,F10.0M2H 

7 MAXIMUM  MACH  NUMBER  OF  REACTION  PRODUCTS  ,F10.3/A2H  MAXIMUM  ACCEL 
BERATION  of  PROJECTILE! GRAV)  ,F10.0/A2H  C/M 

R ,F10.2/A2H  CHAMBER  VOLUME  (IN=X=::3) 

A,F10.5/A2H  LOADlriG  DEN  S I T Y ( L B/ 1 N=:==:--3  ) ,F7.5/A2H  SHOT 

B-START  PRESSURE  (PSD  ,F10.0//) 

5A0  FORMAT  ( 1 1 X , 2 A H PROPERT I E S OF  PR0PELLANT//A2H  RATIO  OF  SPECIFIC  HEA 
ITS  {-)  ,F10.3/A2H  CDVOLUME  (IN«*3/LBM) 

2 ,F10.3/A2H  MOLECULAR  WEIGHT  (LBM/LBMOL)  ,F10.3/A 

33H  CHEMICAL  ENERGY  OF  PROPELLANT  ( LBF - 1 N/L BM ) , F 1 0 . 0 /A  2 H DENSITY  OF 
A PROPELLANT  (LBM/INPP3)  ,F10.A/A2H  BURNING  RATE  ADDITIVE  CO 

5NSTANT  (IN/SEC)  »F10,A/A2H  BURNING  RATE  PRE -E XPONENT I AL  FACTOR 
6 /A2l!  ( IN/SEC-PSI=:=«BN)  .F10.6/A2H  BURNIN 

7G  rate  exponent  (-)  .F10.A/A2H  TC  GRAIN  LENGTH  (IN) 

? • ,F10.3/A2H  length  BREECH  TO  PROJECTILE  BASF  ( 

91N)  ,F10.3//) 

55C  FORMAT  (IHI) 

560  FORMAT  ( 1 HO , 1 OX ,1 GH SOL UT I ON  AT  S T FP , I 5 , 5X , 1 2 HT I ME ( M SE C ) =,F7.3//50 
IH  PROJECTILE  travel (IMS)  ,F10.3/50H  PROJ 

2FCTILF  VELOC ITY( INS/SEC ) ,F10.0/50H  UNREACTED 

3PR0PFLLANT  MASS(LBH)  ,F10.A/50H  POSITION  OF  PROP 

AFLLANT  B OUND AP Y ( IN S ) ,F10.3/50H  VELOCITY  OF  PROPELLANT 

B BOUNOARY( iNS/SEC)  ,F10.0/50H  PROPELLANT  REGRESSION  RATE!  I 

5NS/SEC)  »F10.2/50H  STRESS  ON  UNREACTEO  SIDE  OF  FLAME ( 

7PSI)  ,F10.0/50H  MACH  NUMBER  OF  REACTION  PRODUCTS!-) 

P .El  0.3/ 

=:‘50H  projectile  ACCELERATION  (KG)  .F10.3/ 

•^50H  RESISTANCE  DUE  TO  SHOCKED  AIR  (PSD  .FIO.O/ 

=:=BOH  RESISTANCE  DUE  TO  OBTURATOR  (PSD  ,FlO.O/) 

570  FORMAT  ( 1 1 X , B HTOJ A L ,6X , 3HG A S , 3X , 1 9HUNBUPNE D PROPELLANT/lOH  MASS(LB 
1 ) ; ,F3.  A , IXtFB.^f  ,6X  ,F8  . A/ ) 

580  FORMAT  { ZOX, 5H TQTA L , 6 X , BH I NTER NA L , 2 X , 1 1 HG AS  K I NE T I C , 1 X » 1 3HUNBURNT 

I PROP. ,1X ,17HCHF  UNBURNT  PROP . , 1 X , 2HK E , 2 X, 1 3HPR0 JECT I LE  KE/lXilAHEN 
?ERC-Y{IN-LB)  : ,3E12.6,3X.E12.6,6X,E12.6,SX,E12.6/2X,13H  % ENERGY  : 
3,3(AX,F7.2) ,7X,F7.2 ,2(10X  ,F7.2) ) 

590  FORMAT  ( AOX , 32  HD  I S T R I PUT  I ON S OF  STaTF  VAR  I ABLE S/ / AOH  POSITION  DENS 

II  TY  PRESSU9E  temperature, AOH  VELOCITY  KINETTC  ENERGY  INTERNAL  EN 
2ERGY,3X  , AHMASS/3X,3HINS,AX,FHLB/IN-:=*3,3X,3H^SI,3X,5HDEG-R,6X,3HI/S 
3,6X,5HIN/LR,  11X,5HDI/Le  , 10X,2HL3/) 

600  FORMAT  (lX,F7.3,lX,F9.6,lX,F9.0,2X,F6.n,AX.F9.1,lX,E12.6,AX,E12.6t 
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13X,F9.6)  ^ 

601  F0RMAT(1X,F7.3,F10.6,1X,F9,0,12X,F9.1)  ^ ^ 

610  FORMAT  ( 75X,  ?1  ( 1 ) , 8H ( ENERG  Y 1 1 8 ( 1 H* ) /3X  t AH T I ME  ,3X  .12 HTRAVEL  VEL 

1 . .2X,6HACCEt.,3X,l5HPRESSURE  (KPSi ) ,7X . IHZ , 6X . 2HXB . 5X . IHR ,5X , 1 AHMft 
2CH  INTERNAL, AX ,3HGAS, AX ,27HUNBJRNT  UNBURNT  PRO JEC TILE , 1 X , AHSTEP/ 
3AX ,2HMS,6X ,2HIN,AX ,3HF/S,AX,3HK-G,3X,6HBPEECH,2X ,AHBASE,3X,6HSTRES 
AS10X,2HfN,6X,3Hf/S,2OX,7HKlNETIC.2X,25HCHEMICAL^KINET|C^ 

620  FORMAT  (1X,F7.2,F3.2,F7.0,F7.1,2F7.2,F8.2,F6.3,F7.1,FB.0,F7.3.5(1X 
1 ,F8.3) ,2X,I5) 

630  FORMAT  {5H  T IME  , AX  , 6HTR  A VEL  » 2X  , 8HVE  LOG  I TY , 2X  , A 3H  — 7 777;:“---- 

1 — ENERGY  ( IN-LB) .36H % ENERGY  , 

MS,7X,2HIN,7X,3HF/S,5X,5HT0TAL,5X.8HINTE 
3RNAL  ,3X,6HGAS  KE,6X.7HUBP  CHE,AX,6HUBP  KE . 3X . 7HPR0 J.KE .3X, 1 IHTOTAL 
A INT.,25H  GAS  KE  UP  CE  UB  KE  PR  KE/)  ^ 

660  format  MaA^WARNING^’iDEAL^CASE^REQUIRES  strong  deflagration  NAVE) 
670  FORMAT  (A9H  T I RAVEL  VELOCITY  PBREECH^P  BA SE^P-MA SS . AOH 

680  format  ( 1X,PB.3,F9.2.F8.1  ,2F8,0,F7.3,F7.A.F7.1;,2FB.Q.F9.0.F7.3.I6) 
690  FORMAT  ( 1 li( , 23hOaR  I ABLE  BURN  RATE  DATA/A3H  STEP  INTERCEPT  COEPFIC 
1 IFNT  EXPONENT  Z ) 

700  FORMAT  ( U , I 3 , 3X  ,FP .3 , 1 X . G1 2 .6 , 1 X , F 8 . A , 2X , F 7 . A ) 

710  FORMAT  I IHl  ,27X  , lAHSUMMARY  OUTPUT//) 

720  FORMAT  ( 31X . 7HPURNDUT ) 

730  FORMAT  ( 27X , 1 6HMAX I MUM  PRESSURE) 

7A0  format  (27X,20HMAXIMUM  ACCELERATION) 

750  FORMAT  27X , lAHMAXI MUM  STRESS) 

760  FORMAT  ( 32X . 6HMUZZLE ) 

76A  FORMAT (26X ,21HMAX.  FORWARD  GRADIENT) 

7?0  FpMAi^f3x!AHT7MEl3X^2  2HfRAVFL°v|LSciTY  ^ ^ ^ y iil * 

IRE  (PSiK l5( IH- ) ,3X ,1HZ .5X.10HMACH  NSTEP/A X ,2HMS ,6X ,2H I N . 5X , 3HF/S . 
26X,2HKG.AX,21HMAXIMUM  BREECh  BASE , Ax , 6HSTRE SS, 1 1 X ,2HND  ) 

780  FORMAT  iU  » 2 t F8 . 2 , 1 X , F 8,  1 .F8 . 2 ,3F8 . 0 ,F9 . 0 , F 7 . A , F 7.  A,  1 5/ ) 

790  F0RMAT(22H  RESTART  WITH  NDSKID  =,I10,11H  AND  NOSK  =,IlO, 

*20H  FAILS,  terminating.) 

800  FORMAT!  ^ ^ , 

*A2H  compression  wavf  speed  in  propellant 

(IN/SEC) 

❖A2H  expansion  wavf  SPFED  IN  PROPELLANT 
2 H (IN / SEC) 

610  FORMAT! 

-A2H  VISCOSITY  OF  LUBRICATING  FILM 

(LRM/IM-SEC) 

❖ <,?H  THICKNESS  OF  LUPR  I CA  T I NG^F  I L M (INS)  ^ ' X * t.'.oF  / / 

P20  pr'PMATdHO,  BX,36HFPlCTinN  BETWEEN  PR  OPEL  L ANT  AND  TUBE// 

VFLOriTY  FRICTION  COEFFICIENT/ 

!tn/se:)_^  !-)  / 

H30  Fn*PHAT(lHoI  SX  I 3EHR  F 5 1 ST  I VE  PRESSURE  DUE  TO  OBTURATOR// 


,F10.0/ 

.FIO.O//) 

/ 

,E10.3/ 

iFlO.A//) 


aA  0 


64? 


TRfi V?L 

( 1 r J s ) 
3,10X,F10, 


0)  ) 


RESISTIVE  PRESSURE  / 
(PST)  ' / 


42H 
4?R 
4 2H 
42H 


(-) 


) 


OF  projectile  AHEftD  OF 


OE-TURATOR 
( LBM) 


FRICTION 


6 5 0 


86  0 


870 


(-) 


TUBE// 
COEFFICIENT/ 


44H 
A4H 

( lU  ,F15 
FORMAT ( 

'42H  PATIO  OF  SPECIFIC  HEATS  OF  AlP 
•PPFSSURE  OF  AIE^,  IN  BARREL  (PSD 

temperature  of  air  in  barrel  (OFG 

MOLECULAR  WEISHT  OF  AIR  IN  BARREL 

(LBM/LBMOL) 

FORMAT! 

-42H  MASS 
:'42H 

:'42H  length  of  obturator  (INS) 

:=42H  POISSON  RATIO  OF  dRCJFCTILE  (-) 
BX,3?HFR1CTIDN  BETUFFN  QETURATCR  A NO 

;=44H  velocity 

^44H  (IN/'^FC) 

MIH  ,F1?  . 1 . lOXtFlD  , 3)  ) 

FORMAT! 

'4?H.  TEM!^FRATU?E  0"^ 

:'42H  CPEPFICIFMT  IN 
= 42H  VISCOSITY  OF  SA 
>42H  PRANOTL  NUMBER 
FORMAT ( 

"42!!  ELO^DOWN  TERMINATION  PRESSURE  (PSD 
'42H  discharge  COEFFICIENT  FOP  MUZZLE  {-) 

FORM  ATT 

42H  THROAT  AREA  OF  RREECH  NPTZLE  (IAP:"-:'?) 

42H  PlSCHARGE  COEFFICIENT  OF  BREECH 
42.H  RUPTURE  ^’ESSURE  FDR  BREECH  DIAPHRAGM 
= 42H  (PSD 

B30  FOP?''AT  ( 1 H0,2  AX  , RIHGLOPAL  BALANCE  CHECKS/ 
=X?0X,2GHFINAL  MASS  OEPTCT  ( E ) , 4X  » F 1 0. 3/  ’ 
R20X,22HHAXIM1JM  MASS  DF  F E C T ( % ) , 2X  , F 1 0 . 3 / 
-20X,22HFINAL  ENERGY  DE  F E C T ( S' ) , 2X  , F 1 0 . ? / 
R20X,24HMAXIMUM  ENERGY  DEFECT ( % ) , F 10 . 3/// 

R?nX, 'TOTAL  meat  LOSS  TD  TUBE  (L3F-IN')',F10.&/ 
*20X,'LPSS  DUE  TO  PROJECTILE  RESISTANCE  (LBF-IN 
RROX.'LPSS  DUE  TO  ppnPrLLANT  RESISTANCE  (LBF-lN 
BB?  FORMAT! ' MUZZLE  EXIT  HAS  OCCURRED,  PROCEEDING 
1 * ANALYSIS') 

END 


,F10.4/ 
,F10.3/ 
,F10. 1 / 

/ 

,F10.4//) 

/ 

.F10.5/ 

,F10.3/ 

,F10.3// 


/ 


WALL  (DEG.R) 

transfer  gorrelation 
S (L3M/IN-SEC) 

OF-  GAS  (-) 


TU3E 

heat 


,F10.1 / 
,F10.4/ 
,E10.3/^ 
,F10.3//) 

,F10.1/ 
,F10.3//) 

,F10.4/ 
NOZZLE!- ) ,F10.3/ 

(fio.1// ) 


!: 


,F10.0/ 

.FIO.O/) 

ITH  BLOWDOWN' 


ooooo 


SUBROUTINE  3AR1 

initializes  computational  arrays,  this  routine  must  be  called 

AT  OUTSET  OF  INTEGRATION  PROCEDURE. 


IMPLICIT  REAL=!=B(A-H,0-Z) 

REAL=S--8  MOL,  MACH 

COMMON  /BARA/  GSKlOOtB),  GS2(100.3),  GS3(100.3) 

COMMON  /BARC/  NOT,  Nl,  NF,  NP.  INT,  NDIM,  MAXDIM 

COMMON  /BARF/  GAM,  BV,  MOL,  ECHEM,  RHOP,  Bl(20),  B2(20),  BN(20), 
1 C V 2R ( 20 / 

COMMON  /BARF/  XPR,  VPR,  CM,  XB , VB , AB,  PRM,  ROOT,  SIG,  SSTART 
COMMON  /BARG/  XP B , DELTB X ,NPPC , ND I Ml  ,NDI M2  ^ 

COMMON  /BARH/  AUP, A OWN , V f SL YR , DEL YR , AMU V ( 1 0 ) , A MU ( 1 0 ) , DB , 

« BRX(IO) ,8R( 10)  ,AIRGAM,AIRP0, AIRT0,AIRMW,TWAL0, 

❖ PBRF.CDMUZ . ASBR,CDBR,PDIA,CHTW,ORH0 (2) 

COMMON  /BARI/  N WFR , NBR E S 1 ,NBRE S2 , NH TW , NMU Z BL , NBRV 
COMMON  /BARCJ2/  PSf , SIGMAX,  MACH,  APMAX,  XII,  XI2, 

COMMON  /BRVAR/  XLPPl,  Xpp,OP,NBR 
DATA  G /386.16D0/ 


NCJ,  IDEAL 


NDT  = 0 

DO  10  1=1,900 
10  GSKI  ,1)=0.D0  , ^ 

CALL  REFIT  (0,1)  . 

IF  (CM.GT.O. DO. AND. IDEAL. EO.O)  GO  TO  30 
IF  (CM.GT.O.DO.AND.  IDEAL.E0.2)  GO  TO  80 
20  RH0ST=1 .D0/( BY+ ( GAM-1 . DO) *ECHEM/PST ) 

DUB=0.D0 
FSTA=FCHEM 
SIG  = PST 
RD0T=0 .DO 
GO  TO  50 

30  CALL  BURN  ( PST .RDOT ,PDOTPR) 

Xl=2.D0*G/PmT*(PST/PH0P=:=GAM/(GAM-l  . DO ) -R OOT«PDO T/G  ) 

X2  = RnOT=^-RDOT-2  .D0=:-'G':=(  ECHEM+PV«PST/(  GAM-1 . DO)  +PST/RHOP) 

X3=X1-X1-A.D0-X2 

IF  (X3.LT.O.DO)  GO  TO  70 

X3=DS0PT(X3) 

IF  (Xl.LT.O.DO)  X3  = -X?. 

X3=( -X1+X3) -0. 500 
UB=PDnT+VPR-X3 
RHnST=RD0T--:=RM3?/X3 
GO  T n 1 0 s 

^♦0  '■’STA  = PSTR  (1  . nO-BV=:=RHOST  )/PHrsT/  ( GAM-1  .DO) 

S IC=OST  + RHn^  /G=:=pmT--::pDnT=:'  ( RHOP/RHOST-l . DO  ) 

i ' U P = u B / D F L n 4 T ( M 0 I M - 1 ) 

a=phcst*xb 


ono 


on  60  J=1  ,3 
DD  60  I = l,NnH 
GS1(I,J)=A 
3=DFLnAT  (I-l  )=:=DUP 
GS2(  I , J)  = A*9 

60  GS3( I , J) =A«( ESTA+B^P^O.^DO/G) 

vp=p'oriT 

IF  (NPRC.eQ.O)  RET'JPM 


01  sTRiRUTin^js  IN  continuum  propellant 


IF (NWFR.GT.D ) GO  TO  6? 

A=RNnM(SIG) 

XLPRI=CM/A/AB 

XPPnP=XLPRI+X3 

XBB=XLPRI 

DO  61  J=1 ,3 

00  61  I = NDIM1,N0I'^’2 

GS1(I,J)=A 

G S 3 (I , J ) = S ! G 

61  CONTINUE 
RETURN 

62  ITFR=0 
SUMA=CN/AB 
XBBL=0.00 
XP.BH  = XP3 

63  XBP  = 0.6D0=:=(XRRL+XPPH) 

PI  T = -'4 .00/03  =:=AMU(1  j «OFLTBX=^xeB 
5'J>';=0.P0 

DD  66  I=NniMl,NOIM? 

S I G I J = G I G=:=nF  XP  ( P.  I T ::.-DFL  0 A T ( I -MO  I M 1 ) ) . 
G53{ I , 1 ) =SIGIJ 
RIJ=PNnM{ GIG! J) 

GSKI  ,1)  =R1J 
FAC=1.00 
IF(  ( I-MDI.M1)=M  I 
GUM=SIJH+PIJ=:=FAC 

65  COMTINUE 
SUM=SUN=:=DFLTBX 
1 F (OARG ( SUM-SUMA/XPB) 

ITER=rTER+l 
IF  (ITER. LT. 50)  GO  TO 
WRITMG.IZO) 

CALL  EXIT 

66  IF  (SUfl.GT  .5  Jna/XBB  ) CO  TO  67 
XBRL  = Xr:B 
GO  TO  63 

6 7 X '•  f ' H - X P P 
GO  TP  (3 
6'*  pn.  f.q  J=?,3 


NOIM2).EO.O)  FAC=0.'=^00 


.LT 

6 6 


l.D-6)  GO  TO  6P 


noo 


DO  69  I=NDIM1,N0IM2 
GSK  I.J)=GS1(I,1  ) 

GS3{I,J)=GS3{I.l) 

CONTINUE 

XLPRI=XBB 

XPROP=XLPRI+XB 

RETURN 

WRITE  (6,110) 

CALL  EXIT 
TEST1=SIGMAX 

IF  { APMAX.LT.1 .0-10)  GO  TO  90 
TESTl A=RESP(XPR,VPR,AFAX ) 

TEST1  = APMAX«{PRM+CM  )/AB  + TEST1A  + AFAX*-:=APMAX  = 
IF  (SIGHAX.LT.l .0-10)  GO  TO  90 
IF  (SIGMAX.LT.TESTl ) TEST1=SIGMAX 
IF  (PST.GE.TESTl-1 .0-10)  GO  TO  20 
BrT=G/RH0P/RH0P/2.00 


NWAY=1 

BIT=G/RH0P/RH0P/2.0O  , 

BIT=BI T* ( TESTl -PST )«(TEST1*(GAH+1. 00) /(GAM-1 .00)«PST) 
BIT=BIT/(ECHEM+ (BV-1 .DO/R HOP) «PST/( GAM-1. DO) ) 

RHQST=RHgp/(l.pO  + ( TEST1-PST)=J=G/RH0P/BIT) 

10  RDOT=DSQRT(BIT) 

UB  = RDOT=^-(  l.DO-RHOP/RHOST  ) 

IF  (NWAY.E0.2)  GO  TO  AO 

CHECK  MACH  NUMBER 

BfTM  = DABS(UB-ROOT?/DSQRT?G*GAM=::PST/RHOST/(l.DO-BV«RHOST)  ) 

IF  (BITM.LE.MACH  GO  TO  AO 

PITN=ECHEM+tFSTl/RHOP-BV*PST/(GAM-l  .D0)*(  1 .00+  ( G AM- 1 . DO ) «G AM^'MACH 
1 =:=MACH) 

BlTNN=PHOP*eV 

BITNN=BITNN4=BITNN-1  .00  , 

BITL=BITNN*(  GAM*PST=:=MACH/RH0P)-*2-(MACH-MACH  + 2 .00/  (GAM-1 .00)  ) 

16  DIS=BITN«BITN-BITL 

IF  (01 5.LT.0.D0)  GO  TO  70 
PIT=  (BITN-OSORT(OIS  ) )<=G/3ITNN 

PHOST=  1 . D0/(  BV  + GAM«MACH«MACH»^G4!PST/RH0P/RHDP/B  IT  ) 

NWAY=2 
GO  TO  100 

17  PITNNrl.OO-BV^RHOP 
BITMM  = 1.D0  + GAM«:MACH=:=MACH 
BITN=ECHEM+BITNN*BI Tmm*pST/RHOP 
RITL=3ITNN=>5AM*PST:?mACH/RH0P 

PITL=2  .nO/(GAM-l  .00  )=^p,  I TL-B  I TL*(  1 . DO*  ( G AM- 1 . DO  ) /2  . D04=M ACH«MACH ) 

PITNN=PITMN«BITnn 

GO  TO  106 


115 


no  FORMAT  (^3H  NEGA.TIVF 
1?0  FORMAT {53H  EXCESSIVE 
EHn 


DISCRIMINA'JT  IN  BARI.  TERMINATING) 
ITERATIONS  TO  DETERMINE  PROPELLANT  LENGTH.) 


ooooo 


SUBROUTINE  BAR?  (I,J,K,XBP) 

TRANSFORMS  COMPUTATIONAL  ARRAYS  FOR  LEVEL  K INTO  CUSTOMARY 
STATE  VARIABLES  FOR  MESH  RANGE  I TO  J 

argument  XBP  is  the  POSITION  OF  THE  PROPELLANT  AT  LEVEL  K, 


IMPLICIT  REAL«=B(  A-H  ,0-Z  ) 

REALMS  MOL 

c8mm8n  /8aR3/  RHoHoojf  ^;5(foo!!^E^l'i<5K^?(10o/!*U(100)  . ETA(IOO) 
-OMMON  /SABC^  NOT.  NI.  NE,  NP^„ 1 NT .^Nfcio.^M JXO I» 


BV,  MOL. 


10 

15 

16 
20 


COMMON  /BARE/  GAM, 

1 CV,  ZR{20) 

COMMON  /BARG/  XBB .DELTBX ,NPPC ,ND IMl ,NDIM2 
DATA  G /386.15D0/ 

II  = I 
JJ  = J 

IF(I.GT.NDIM)  GO  TO  15 
IF ( J.GT.NDIM)  JJ=NDIM 
DO  10  L=I 

RHD(L)=GSI(L,<)/XBP  ^ 

U{L)=GS2(L,K)/GS1(L,K) 

E(L)=GS3(L,K>/GS1(L ,K>-U(L)«U(L)*0.5D0/G  , , ^ 

P{L)=(GAM-I.DO)«RHO(L)*E{L)/{1 .DO-8V«RHO{L) ) 

T(L)^E(L)/CV 

IP( J.LE.NDIM)  return 

I1=N0IM1 

JJ=J 

IF(NPRC.EQ.O)  GO  TO  20 
DO  16  L=II,JJ 
PH0(L)=GS1(L ,<) 

U(L  ) = GS2(L,<) 

P{L)=GS3(L,K ) 

RETur -■ 


TURN 
WRITE  (6,30) 
CALL  EXIT 


I, J,NDIM 


30  format  (AOH  PAR2  CALLED  WITH  ILLEGAL  ARGUMENTS,  I =,110, AH 
1,7H  NDIM  =,I1D,12H  TERMINATING) 

END 


J =,110 


oooonooc'>oooor'> 


SUBROUTINE  BAR"^  ( JN  T , XF;.P  , VBP  t XB3?  . VBB  P ,DT  ) 

UPDATES  Cn^'^UTATIONAL  ARRAYS  USING  A TWQ-LEVEL  EXdlICIT 
PARCHING  SCHEME.  ROUTINE  MUST  BE  CALLED  TWICE  PER  UPDATE 
CYCLE.  ONCE  WITH  JNT  =1  (PREDICTOR  STEP)  AND  THEN  WITH  JNT 
= 0 (CORRECTOR  STEP).  ONLY  THE  INTERIOR  MESH  POINT  VALUES  ARE 
UPDATED;  THE  BOUNDARY  VALUES  ARE  TREATED  EXTERNALLY. 

ARGUMENTS  X3P  AND  VBP  ARE  THE  POSITION  AND  VELOCITY  OF  THE 
PROPELLANT  AT  THE  PRESENT  LEVEL. 

argument  XRPP  IS  THE  LENGTH  OF  THE  PROPELLANT  AT  THE  PRESENT 

= THE  .PR3JECIILE 

INCREMENTED. 


Luuiii  jr  I nt  J-'K j or t I 1 Lt  . 

STEP  OVER  WHICH  THE  SOLUTION  IS  BEING 


IMPLICIT  PEAL^^'^  ( A-H  ,r.!-Z  ) 

COMMON  /BARA/  GS1(100,3),  GS2(100,3),  GS3(100,3) 

p(ioo),  e(ioo),  Tdooi.  u(ioo),  eta(ioo) 

COMMON  /BARC/  NDT.  MI.  NF , NP,  INT,  NDIM,  MAXDIM 
COMMON  /BARD/  DXMIN,  DELTAX 
COMMON  /BARG/  XBB, DELTB X .NPRC .NOI Ml  ,NDI M2 
COMMON  /BARI  / N WFR  , NBR E SI . NBRE  S2  , NH TVI  ,NM J Z BL  . NBR V 
COMMON  /BARJ/  QDRF ( 100 ) , PRPRE S 

DI MENSION  &S( 100,3 ,3) 

EQUIVALENCE  ( GS ( 1 , 1 , 1 ) , GSl ( 1 , 1 ) ) 

DATA  G /386.16D0/ 

NI=Mnn(NDT,3 )♦! 

MF^MQD  NDT+1 ,3)+l 
NP=M0n(N0T+2 ,3) +1 
NDIMM=ND IM 

I F (NPRC. Eq. 1 ) NniMM=NDlM? 

INT=MOD(NDT* 1,2 ) 

DD  5 I =1 , NOI MM 
S QORF( I )-0.D0 

CALL  BAR2  ( 1 , NO  I MM , N I , X BP ) 

IF(NWFP. NE.O. AND. NPRC. FQ.l)  CALL  WFR 
IF (NHTW.Nr ,0 ) CALL  HTW 
DO  10  I=1,MDTV 

10  FTA(  I ) =U  ( I )*nELOAT  ( I-l  )=:=VBP«DELTAX 
DX  = nELTAX=:=XBP 
DELTX=DELTAX 
IL  = 2 

IR=MCIM-1 

IF(NP.RC.EQ.O)  GO  TP  is 
DO  lA  I = MDIM1. 

1 A F TA  ( I ) = J ( 1 ) - ( D'^LOAT  ( 1-NDU‘l  ) *Dr L T 3 X ■;=  ( VBBP -V BP  ) ♦VRP  ) 

1 B IF  ( INT. EO.O ) GO  TP  ?o 
IF’  = 1 


OCIO  ooo  ooo 


rM=o 

GO  TO  25 
20  IP=0 
IM=1 

25  DO  70  I=IL.IR 
IF(.I.GT.NGI1)  GO  TO  26 
12=I+IP 

GSK  I.NF  )*(GS1(  I 1,NI)<=ETA(I1)-GS1(I2»NI)«ETA(I2)  )/DX 
GS2(1,NF)  = (GS2( 1 1, N I )«ET A ( 1 1 )-GS2 ( I 2 . NX ) *E TA ( I 2 ) )/DX+ 

«(P(I1  )-P(  I2n/DELfX<=G 

G53il,NF)=(GS3( IlfNl)«ETA(Il)-&S3(I2,Nl)*ETA( 12)  )/DX+ ( P ( II ) «U( 1 1 ) 
1 -9(12) -0(12) )/DELTAX-QORF(I)«XBP 

GO  TO  35 

26  X=RH0( I) 

JL  = I 

IF (ETA(I) .GT.O.DO)  JL=I-1 
JR=JL+1 

X0=-X«(U( I+l )-U( I-1))/DX2 

GSl  (I  .NF)  =-ETA(  I )=:=(RH0(  JR)-RH0(  JL  ) ) /OX  + XD 
AP=Ds6r(X,XD,P( I )) 

GS3(I ,NF ) =-ETA( I )«(P( JR)-P( JL) )/DX+AP*AP/G«XD 
DPDX=(P( I-1)-P| I+li)/DX2 
IF(OABS(OORF(I) ) .LT.l.D-lO)  GO  To  3A 
IF(DABS(U(I)).GT.1.D-3)  GO  TO  33 

CHECK  FOR  LOCKING  DUE  TO  FRICTION 

IF (DPOX. GT.O.DO)  GO  TO  32 
DPOX=DPDX-QORP(  I ) 

IF(DPDX. GT.O.DO)  OPDX=O.DO 
GO  TO  3A 

32  DPDX  = DPDX+QOR=  ( I ) 

IF (DPDX.LT.0.00)  DPDX=O.DO 
GO  TO  3A 

33  DPDX  = DPDX+ODRP{  I ) 

3A  GS2( I .NF)=-ETA( I ) « ( U( JR ) -U( JL ) ) /DX* G*DPDX/X 
35  IF  (INT.EO.O)  GO  TO  50 

PREDICTOR  STPO 

DO  ^0  K=l,3 

AO  Gg(l^NF^K)  = GS{I,Nl  ,K)  + GS(I,NF.K)'-DT 

corrector  step 

50  nn  60  K=1,3 

60  GS(I,^lF,K)  = 0.5nO-(GS(I  ,Np,K)*GS(  I ,NI  »K)+GS{I  ,NF,K)*DT) 

70  CONTINUE 


ir-(NPRC.EQ.O.TR.R.GT.HOIM)  GQ  TQ  PO 
IL=ND1M1+1 
rR=N[)IM2-l 
nX  = DELT3X=SXeBP 
nx2  = 2.DO’:=nX 
GO  TG  25 
80  MnT=NDT+l 
RFTUPN 
END 


o oooooo  no  r) 


SUBROUTINE  BAR<f  (TSET  , X8  f XBB,  SAFE  , I ER  ) 

COURANT  STABILITY  CONDITION  FOR  FLOW. 

TSET  IS  THE  MAXIMUM  VALUE  WHICH  THE  TIME  STEP  MAY  HAVE^FOR 
STABLE  INTEGRATION  OF  THE  BALANCE  E QUATIONS  FOR  THE  FLOW. 
ARGUMENT  XB  IS  THE  PRESENT  VALUE  OF  THE  GAS/PROPELLANT  ^ 
INTERFACE  AND  XBB  IS  THE  PRESENT  LENGTH  OF  THE  PROPELLANT. 
argument  safe  is  a VALUE  LARGER  THAN  ONE  AND  IS  USED  TO^RESTRICT 
THE  TIME  STEP  MORE  STRINGENTLY  THAN  THE  BASIC  COURANT  CONDITION. 

IMPLICIT  REA1.«8(A-H,0-?) 

REALR8  MOL 

COMMON 
COf 


1 


/BARB/ 

MMON  /BARC/ 
COMMON  /BARD/ 
COMMON  /BARE/ 
CV,  ZrT20) 
COMMON  /BARG/ 


RHO(IOO),  P(IOO) 

NOT.  NI,  NF,  NP, 
DXMIN,  DELTAX 
GAM,  BV,  MOL,  ECHEM, 


, E(IOO),  T(IOO),  U(IOO),  ETA(IOO) 
INT,  NDIM,  MAXDIM 


RHOP,  B1(20),  B2(20),  BN(20) 


O 


DATA  G /386.16DO/ 

tSBT=O.DO 
DO  10  1 = 1, NDIM 
TC0N=(GAM«G«'P(  I ) /RHO(  I 


YBB,DELTBX,NPRC,NDIM1 ,NDIM2 


IF  (TCON.lt. 0. DO)  GO  TO 
C=DSQRT( GAM«G«P( I ) /RHO( 


D0-BV»5=RH0(  I ) )) 


)/(l. 

20 

l/RHOfI)/(  1.00-BV=>RH0(I)  ) ) 
BIT=0ABS(U(I )-ETA( I ) )*C 
IF  (BIT. GT. TSET ) TSET=BIT 
10  CONTINUE 

TSET  = XB=!=DELTAX/TSET/SAFE 
IF(NPRC.EO.O)  return 
TSETl =0. DO 
DO  15  I=NDIM1,NDIM2 
AP=DSDR(RH0( I ) ,1 .D0.P( I ) ) _ 

APA=OSDR(RHO  I ) , -1 . DO, P ( I ) ) 

IF(APA.GT.AP)  AP=APA 
DIT=DABS(U{ I )-ETA( I ) ) +AP 
IF(BIT. GT. TSETl ) TSFT1=BIT 
15  CONTINUE 

TSET 1=XBB-DFLTBX/T SET  1 /SAFE 
IF(TSET1  .LT.TSET)  TSET=TSET1 
RETURN 
20  1 = 1 
IEP=1 
RETURN 
END 


oc^o  o oooooooo 


SIJBPGUTINF  P ASF  ( X P P , X B F , XBBP , OT  , I E R ) 

UPDATES  BOUNDARY  VALUES  AT  C-AS/PRDPELLAMT  INTERFACE 

arguments  X3P  and  xbf  are  respectively  the  positions  of  the 

INTE^RFACE  AT  THE  PPESF^T  AND  FUTURE  LEVELS.  ARGUMENT  OT  IS 

THE  TIME  STEP  OVER  HHlCH  THE  SOLUTION  IS  P.PING  UPDATED. 

argument  XBpp  IS  THE  LENGTH  OF  THE  PROPELLANT  AT  THE  PRESENT  LEVEL 

IMPLICIT  REALPBI A-H  ,0-Z ) 

REAL-B  MOL,  MACH 


COMMON 
COMMON 
COMMON 
COMMON 
1 CV, 
COMMON 
COMMON 
COMMON 


COMMON 
COMMON 
COMMON 
DATA  R 


/BARA/  GS1(100,3),  GS2(1D0,3),  GS3(100,3) 

/BARB/  PHOdOO),  P(IOO),  EIIOO),  T(100j,  U(IOO),  ETA(IOO) 
/BARC/  NDT,  NI.’nF,  Np,  InT;  NOiM,  MAXOIm  c.aiiuu; 

/BARE/  gam,  BV,  mol,  ECHEM,  RHOP,  R1(20),  32(20),  BN(20), 
ZR(20) 

/BARF/  XPR,  VPR,  CM,  XB,  VB,  AB,  PRM,  ROOT,  SIG,  SSTART 

/BARG/  XBB,DELTBX,NPRC,NDIM1 ,NDIM2 

/8ARH/  AUP,ADWN, VI SLYR.DELYR ,AMUV( 10)  ,AMJ ( 10  ),DB , 

BRX(10),BR(10),AIRGAM,AIRP0, AIRT0,A1RMW,TWAL0, 
P8RF,CDMUZ ,ASBR,CD3R,PDIA,CHTW,DRHD(2) 

/BAPCJ?/  PST,  SIGMAX,  MACH,  APMAX,  XII,  XI2»  NCJ,  IDEAL 
/BARJ/  00RF( loO) ,PRPRES 
/CJCO/  ICJ 

, G /1B550.00,  3B6.16D0/ 


NC  J = 0 
NSUP=0 
JDEAL=n 
I TEPP=D 
VVPP= VPR 
PH0PP=PH0P 


IF(NPPC.EQ.g j 


, ;n  TO  B 

VVPR=U (NDIMI ) 

CALL  CAR  AC  ( NDIMI , WPR  , SS  I G , DSp  V , X B P , XB  BP  , DT  , + 1 . DO  , C,  DRHO  ( 1 ) ) 

DTFFB=(VB-VVPR)  =:=dt/xebp/deltbx 

DlFFA^l.DO-Ol^FB 

P2=P(NDIM1 )*niFFA* P (NOlMl+1 )-DIFFB 
PHn2=RH0 (NDI Ml ) ❖D I F F A ♦ RHO ( NDI M 1 ♦ 1 ) I F FB 
C = 0.BD0*(G  + DSDR(PHn2,DRH0(l  ) ,P2)  ) 

C2P  = C--.-=C 

PHOPP  = RHO?-+  ( SSIG-P2  )=:=G/C2P 
DRHO( 1 )= (RHDPP-PH02 )/DT 
IF  (NDT.EQ. 1)  N0UT=0 
IF  (CM.GT.O.DO)  GO  TO  20 
IF  (NOUT.GE.ID)  GO  TO  GO 


rntir.'DARY  VAL'J-  of  PPESSURE  from  simple  WAVE  ANALYSIS  =0R  FIVE 
IMTEGRATinw  CYCLES  AFTER  BURNOUT 


< >o  o ooo 


IF  (NDUT.NE.O)  GO  TO  10 
PST=P(N0IM) 

RH0ST=RH0(NDIM) 

UST=U(NDIM) 

10  UNF^fVVPR 

WPP VPR "UST 

TP  = j J.DO-(G^M-l  .DO)  /2.D0-WPR/DSQRT(G-GAM*PST«(1.  D0-BV=:'RH0ST  )/RH0ST 


20 


30 


^NFip?t«^A§J?^loS8GAM/?GAM-l.DO) 


) 


N0UT=N0UT*1 

RH0NF=1.00/(BV+(PST/PNF  )=^«(  1.00/GAM  )-(l.DO/RHOST-BV)) 

RDQT=0.D0 

SIG=PNF. 

IF  (PNF.GT..  0500^:PST)  GO  TO  200 
NCJ=1 

H8}J|,(6.270, 


RE^ 

IF 

IF 


(IDEAL. NE.l)  GO  TO  60 
(U(NOIM).GT.I  .0-10)  GO 


IDEAL  BORN  RATE  LAW 


TO  50 
( IDEAL=0) 


yNF=0.00 
PNF^PST 

BIT*XI2-VVPR«VVPR/2 .DO/G 
IF  (BIT. GT. 0.00)  GO  TO  30 
WRITE  (6,250) 

NCJ=1 
RETURN 

ROOT  = X I1=>VVPR/B  IT 

IF  (ROOT. LE. 1.0-10)  GO  TO  70 

RHONF=RHOPP«ROOT/(RDgT-»VVPR)^  ^ 

IF  (RH0NF.lt  .l.DO/BV)  GO  TO  <)0 
IF  (MACH.GT.l.D-lO)  GO  TO  50 
WRITE  (6,260) 

NCJ=I 

RETURN 

CHECK  MACH  NUMBER  OF  REACTION  PRODUCTS 


GO  TO  1 


PlTlRS=G*bAM*PNF/RHONF/( 1 .DO-BV^RHONF ) 
IF(BITARG.LE.O.DO)  GO  TO  50 
P I T=DABS (UNF-VVPR-RDQT )/DSQRT(BITARC) 
IF  (BIT.GE.I .00)  GO  TO  50 
IF  (BIT. LE. MACH)  GO  TO  13^ 

50  J0EAL=1 
60  ITER=0 


123 


UNF=U(NDIM) 

IF  (CM.LE.O.DO)  UNF=VVPR 

CALL -CAR AC  ( ND I M .UNF .PNF , XA . XBP , XBBP , DT 1 . DO tC . 0. DO) 

IF  (CM. GT. 0.00)  63  TO  BO 
70  RDOT=0.00 
SIG=PNF 

C=0.5D0«(C+Dr»QRT(G«GAM=:-P(NDlM)/RH0(NDIM)  / ( l.D0-3V«RH0(NDIM)  ) ) ) 
C 2 *"  C ^ C 

Rh6nF  = RH0{NDIM)  ♦G/C2=:M  PNF-P(ND1M  )+QORF(NDIM)*(  GAM-1  .DO)/ 
(1.D0-BV*RHQ(NDIM)  )«0T) 

GO  TO  192 
80  YB=PNF-UNF«XA 
90  IF  (JDEAL.EQ.O)  GO  TO  100 
NR8IT=0 

IF(MACH.GE.l.DO)  GO  TO  95 
BIT1=(PNF-YB ) /XA-VVPP 
BIT2  = 1 .DO-BY<=RHOP3 

BlT3=<i.D0«BIT2«MACH«MACH':=GAM-G/RH0PP 
TMP=BITl--!'«2  + BIT3=5'PNF 
IF  (TMP.LT.O.OO)  GO  TO  230 
BIT4=0SQRT(TMP) 

RD0T  = (BlTl-*-BlT<V  )/BIT2«0.500 

RD0TPR=( 1 .00/XA+0.5DO/eiTA-(2.DO/XA*BITl+BIT3) )/BIT2*0.5DO 
GO  TO  HO 

95  IFdDEAL.EO.?)  GO  TO  96 

WRlfTE(6,2<»0) 

RETURN 

96  R0IT  = G/RHOPP*(  TF5Tl-(  1 . DO  + GAM^MACH-MACH ) -PNF  ) / ( B V=:=RHOPP- 1 , DO ) 
IF  (PNF.GT.TEstl ) PMF=TEST1 

IF  (RPIT.GT.O.DO)  go  to  97 

NRB1T=NRBIT*1 

PNF=0.9500*PNP 

IF (NRBIT .LT. 10)  GO  TO  96 

WRITE  {6,2<)5) 

RETURN 

97  RD0T=DSQRT(RBIT ) 

PSIP-R  = PSH(  1 .DO-2.DO«PNF*RDOTpR/RDOT) 
P51=RH0PP«(BV*PNF«PSI/PHQPP) 

NSUP=1 
GO  TO  H5 

100  IF  (IDEAL. EO. 2)  GO  TO  110 
IF (PNF .GT.O. DD)  GO  TO  1D5 
IF(MACH.GT.l .D-10)  GO  TO  50 
MCJ=1 
RETURN 

105  CALL  BURN  ( PNF , ROOT , RDOTPR ) 

GO  TO  HO 


oon 
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IDEAL  CASE  ( IDEAL=2  ) 


110  IF  (APmAX.LT.I.D-10)  GO  TO  120 
TEST1A=RESP( XPR ,VPR ,AFAX) 

TEST1=APMAX*(PRM*Cm]/AB-»TEST1A4AFAX«APMAX=:-G 
IF  (SIGMAX.LT. 1 .0-10)  GO  TO  130 
IF  (SlGMAX.LT.TESTl ) TESTl^SIGMAX 
GO  TO  130 
120  TEST1=SIGMAX 

130  BIT1=TEST1+(GAM+1.D0)/(GAM-1.D0)«PNF 
BIT2=XA«VVPR+YB-PMF 
B1T2=B1T2«=0.5D0/XA/RH0PP 

BIT3=ECHEM+(BY-1 .00/RH0PP)*PNF/(GAM-l .DO) 

RD0T=BIT1«BIT2/BIT3 

RDOTPR  = (GAM+1.DO)/(GAM-1.00)=^BIT2/BIT3-BIT1/BIT3«0.5DO/XA/RHOPP 
1 -BIT1-BIT2/3IT3/RIT3<=(BV-1  .OO/RHOPP  )/(GAM-  1 .DO  ) 

lAO  CONTINUE 

IFCRDOT.LE. 1.0-10)  GO  TO  175 

PSI=( VVPR+RDOT-(PNF-YB )/XAj 

PSIPR  = (RD0TPR-1  .OO/XA)  =i=RDOT-PSI«=RDOTPR 

PSI=PSl/RDOT 

PSlPP=PSlPR/ROOT/RDnT  „ 

H5  FP1=(GAM/(GAM-1.00)«PSI-1.00-BV«RHOPP/(GAM-1.DO) )/RHOPP 
FP2=PSI-1.D0 

FP»PNF«FP1-ECHEM-»R00T«R00T*FP2-FP2/2.D0/G 

FPPR=FP1  ♦PNF«GAM/(  GAH-1  .D0)/RH0PP*PSIPR+RD0T*RD0TPR=!'FP2<'FP2/G 
* ♦ROOT 

1 <=RD0T«FP2«'PSIPR/G 
IF  (DABS(FP).LT.I.DO)  go  to  170 
IF  (ITER. LT. 50)  GO  TO  150 
WRITE  (6,280) 

GO  TO  170 
PNF=PNF-FP/FP3R 
ITER^ITER+l 

IF  (JDEAL.EQ.I)  GO  TO  90 
GO  TO  100 

IF  (IDEAL. EQ.O)  GO  TO  180„ 

IF  (ROOT  .GT. 5. 00)  G(J  TO  ISO 
UNF=VVPR 

CALL  CARAC  ( NO  I M ,UNF , PNF , Xa , XBP , XB3P , DT, - 1 . DO ,C , 0. DO) 

GO  TO  70 

IF(NSUP.EQ.O)  GO  TO  185 
RHONF=PHOPP/PSI 
UNF  = VVPR  + (1.00-PSI  )’^■RDCT 
GO  TO  138 
UNF=(PNF-YB)/XA 

RHnNF  = F:OOT«RHnPP/(  VVPR  + RDOT-UNF  ) 

IF  ( IDEAL. NF.l. AND. JDEAL.  ‘ 

IF { IDE AL  .NE.O)  CO  TO  190 


150 


170 

175 


IBO 


185 


188 

18-^ 


,E0.0)  GO  TO  AO 


I 125 


C 

c 


IF{RHQNF.LT.0.9n0/RV.^ND.PNF.GT.0.00  ) GO  TH  193 
IF{JDEAL.EQ.l)  GO  TO  190 

IF(MACH.GT.l .0-10. AND. MACH. LT.l, DO)  GO  TO  50 
WRITE(6,310) 

RETURN 

190  S1G=PNF*RHOPP«RDOT«RDOT/G«(RHOPP/RHONF-1.DO) 

192  IF(NPRC.EQ.O)  GO  TO  200 
DSSIG=SIG-SSIG 

IF(DAB5(DSSIG).LT.l.D-3)  GO  TO  200 


IF(I 
WR 


(ITEPP.lt. 50)  GO  TO  195 
ITE(6,  300). 


GO  TO  200 
195  ITERP=1TERP*1 

VVPR=VVPR+DSSIG/DSDV 
RH0PP=RHDPP*DSSIG=:=G/C2P 
RHOPPP=RNOM( SIG) 

IF(RHOPP  .LT.RHOPPP)  PHOPP=RHOPPP 

SSIG=SIG 

GO  TO  20 

200  ENF=PNF-(1.D0-PV*RH0NF )/( GAM-1. 00) /RHONF 
210  U(NDIM)=UNF 
P(NDIM  =PNF 
E (NDIM)=ENF 
T(NDIM)=ENF/CV 
RHO(NDIM  ) =RHONF 
BIT=XBF*RHONF 
VB=VVPR+RDOT 
GSl (NDIM ,NF)=BIT 
GS2(NDIM,NF)=3IT«JNF 

GS3(NDIm  nF )=BlT«lENF+nNF«UNF«0.5D0/G) 

IF (NPRC. EO.O)  GO  TP  220 
UINOIMl ) =VVPR 
P(NDIM1 ) =SIG 
RHQ(NDIM1  )=RHOPP 
GSl Indimi ,NF)=RH0PP 
GS2(N0IM1  ,NF )=VVPR 
GS3(NDIM1,NF  ) = SIG 
220  RETURN 

SET  PNF  ERROR  CONDITION 
230  WRITE  (6,290) 

IEP  = 1 
GO  TO  220 


2^0  F0RNAT(A2H  ILLEGAL  PARAMETERS  FOR  SUPERSONIC  BURNING) 

2^5  FoRMAT('»7H  negative  SQUARE  ROOT  DURING  SUPERSONIC  BURNING) 

250  format  (39H  IDEAL  BURN  RATE  I NF I N I TE . TERM  I N AT  I NG . ) 

260  FORMAT  (5<»H  IDEAL  BURN  RATE  PRODUCES  DENSITY  LESS  THAN  RECIPROCAL/ 
126H  OF  CnVOLUMF.  TF PMINAT IMG. ) 

270  FORMAT  (53H13ASE  PRESSURE  DPOPS  TO  LESS  THAN  5%  OF  INITIAL  VALUE/3 
12H  FOLLOWING  3UPN0UT.  TERMINATING.) 


126 


280  FORMAT  ( 28H  FAILURF  TO  CONVERGE  IN  BASE) 

290  FORMAT  ( 29H  PNF  FUNCTION  IN  BASE <0- -STOP ) 

300  F0RMaT(54H  FAILURE  TO  CONVERGE  IN  BASE  WITH  CONTINUUM  PROPELLANT) 
310  F0RMA-T(50H  CQVOLUME  LIMIT  APPROACHED  WITH  MEASURED  BURN  RATE) 

END 


ooonooo 


SUBROUTINE  BASEPR  (XPPF.DT) 

UPDATES  BOUNDARY  VALUES  AT  INTERFACE  BETWEEN  PROJECTILE 
BASE  AND  CONTINUUM  PROPELLANT. 

argument  XPB=>  is  the  LENGTH  OF  THE  PROPELLANT  AT  THE  PRESENT 
LEVEL  AND  OT  IS  THE  TIME  STEP. 


KJ 

•vl 
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IMPLICIT  REAL--:--3(  A-H,C-Z) 
REAL«8  MOL 


1 


COMMON 

COMMON 

COMMON 

COMMON 

CV, 

COMMON 

COMMON 

COMMON 


/BARA/  GS1(100,3),  GS2(lOO,3),  GS3(100,3) 

'hoo) , U(IOO). 


/BARB/  RHO(IOO),  P ( 1 00 ) , E ( 1 00 ) , T( 
/BARC/  NOT,  NI,  NF , NP.  INT,  NDIM. 
/BARF/  GAM,  EV,  MOL,  ECHEM,  RHOP,  B 


_ _ . ETA(lOO) 

MAXDIM 

Bl(23),  32  (20),  BN(20), 

iK  \ 7. 'j  ) 

/BARE/  XPR»  VPR,  CM,  XB,  V5 * AB « apM,  RDOT,  SI  5 » SSTART 
/BARG/  XBB,DELTBX,NPRC,NDIM1  ,NDIM2 
/RARH/  AUP ,ADWN,VI SL YR ,0 E L YR , AMUV ( 1 0 ) ,AMU ( 10 ),DB, 

BRX(10),BR(10) ,AIRGAM  * airpo,airto,airmw,twalo, 
=BPF,CDMUZ ,ASBR,CD3R,PDIA ,CHTW,DRH0 (2) 

DATA  G /3B6.1600/ 


CALL  CARAC(NDIM2  ,VPR,PNF,DP01J,O.DO,XBBP,OT,‘1.DO,C,DRHO(2)  ) 
U(NPIM2) =VPR 

C=0.5DO-MC+DSDR(RHO(NDI:M2),DRHQ(2)  .P(NDIM2)  ) ) 

RHOPP=RNOM(PNE) 

BIT=RH0(NDIM2) 

PH0(NDIM2  ) = RH0(  NDIM2  )'*'G/C2'-(PNF-P(NniM2  ) ) 

IF(RH0(NDIM2 ) .LT  .RHOP^)  RHO ( NDI M2 ) =RH0PP 
DRHO( 2 )= (RHO( NDI M2 ) -BI 7 )/DT 
P(NDIM2)=PNF 


GSKNDIM?  ,NF  ) =RHn(NDIM?) 
GS2(NDIM2,NF )=VPR 
&S3(NDIM2,NF ) =PNF 
RETURN 
END 


nor  ion  oo  o 
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SUBROUTINE  BREECH  (XB^tXBF.DT) 

UPDATES  BOUNDARY  VALUES  AT  BREECH  OF  TUBE  WHEN  IMPERMEABLE 

arguments  XB'^  and  XRF  are  RESPECTIVELY  THE  POSITIONS  OF  THE 
PROPELLANT  AT  THE  PRESENT  AND  FUTURE  LEVELS. 

ARGUMENT  DT  IS  THE  TIME  STEP  OVER  WHICH  THE  SOLUTION  IS  BEING 
INCREMENTED. 

IMPLICIT  REAL*8(A-H,0-2  ) 

REALMS  MOL 

COMMON  /BARA/  GS1(100,3).  GS2(100,3).  GS3(100,3) 

COMMON  /BARB/  RHO(IOO),  P(IOO),  E(IOO),  TdOOj,  UllOO),  ETA(lOO) 
COMMON  /BARC/  NDT,  NI,  NF , NP.  INT,  NOIM,  MAXDIm 

COMMON  /BARE/  GAM,  BV,  MOL,  ECHEM,  RHOP,  Bl(20),  82(20),  BN(20), 
1 CV,  ZR(20) 

COMMON  /BARJ/  QORF ( 100 ) ,PRPRES 
DATA  G /386,16D0/ 

CALL  CARAC  ( 1 , 0 . 00 , PNF , OPDU , XBP ,0.D0 ,DT , 1 .00 ,C ,0 . DO  ) 

U(1)=0.D0 

C=O.500*(C*0S0RT (G«GAM«P( l)/RHO( I ) / ( 1 .DO-BV«RHO( 1) ) )) 

C2=C«C 

RHO( 1 ) =RHO(l )*G/C2«(PNF-P(1 )*Q0RF(1 )*(GAM-1.D0)/ 

<=  (1.00-BV«RH0(1)  )=>DT) 

P(1)=PNF 

E(  1)=P(1  )/RHO(l  )/(GAM-1.DO)«(1.DO-BV=:'RHO(  1 ) ) 

Tn)=E(n/cv 
BIT  = XBF<=RHO(  1) 

GSK  1 ,NF  )=BI  T 
GS2( 1 ,NF) =0.00 
GS3(1,NF)=BIT«=E(1) 

RETURN 

END 


riooo  ono  non  n riononoo 
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SUBROUTINF  BURN  (PM F , ^ DOT «R OOTPR ) 

CALCULATES  RESRESSION  RATE  (ROOT)  AND  DERIVATIVE  WITH  RESPECT 
TO  PRESSURE  (RDOTPR)  AS  A FUNCTION  OF  PRESSURE  (PN=)  FOR 
EXPONENTIAL  BURN  RATE  LAW  (I0EAL=0) 

S^BROUT|NE^^ALj^OWS^FnR  MULTIPLE  BURN  RATE  FUNCTIONS  WHICH  CHANGE 

IMPLICIT  REAL-B( A-H  ,0-Z ) 

REAL=:=8  MOL 

COMMON  /bare/  gam,  BV,  MOL,  ECHEM,  RHOP , Bl(  20),  32  (20),  BN(20), 


CV,  7R(20) 

:0MM0N  /BARF/  XPP,  VPR , 
iOMMON  /BRVAP/  XLPPI,  X 


CM.  Xp.  DUM  (5 ) 

COMMON  /BRVAP/  XLPPt,  XPR0P,NBR 

CHECK  FOR  VARIATION  Of^  BURN  RATE  FUNCTION. 

IF  (NBR.EO.O)  GO  TO  20 
XLPR=XPROP+XPR-XB 

COMPUTE  FRACTION  OF  GRAIN  MASS  BURNED 

ZP=l.nO-CM/RHDP/XLPRl 
IF  (ZP.LT.0.00)  GO  TO  20 

on  10  1 = 1, NBR 

CHECK  FOR  fraction  OF  GRAIN  MASS  BURNED,  IF  EXCEEDED 
CHANGE  BURN  RATF  FUNCTION, 

IF  (ZP.LT.ZP ( I ) ) GO  TO  30 
10  CONTINUE 
B1I=B1 (NBP) 

P2I=E2 (NBR) 

HNI=BN (NBR) 

GO  TO  AO 
20  B1I=B1 (1 ) 

E,?I  = B2  ( 1 j 
PNI=RN(1) 
go  to  AO 

30  E1I=B1  (I  ) 

B2I=B2(I) 

°NI=BM(I) 

1=1 

AO  continue 

PDGT  = B2P:'PNF=:^^-'BN1 

RDnTPP=RDflT^=BNl/PNF 

PnnT=PDnT+R] I 

FETURN 

END 


oof  ’<~>no  otToooot  ■>  o 


subroutine  CARAC  (KKsUNF  ,PNFi,DPDU,XRp„XB9P,DT»SGN,CR9DRH0) 


CH 

o 


TG^DE^ERMINE  BOUNDARY  VaLueS  OF  SSUSE  ( PNF ) CONSISTENT 
WITH  VELOCITY  (UNP)  AT  POINT  KK.  ALSO  RETURNS ^DE R I V AT  I VE, , 

DF  PRESSURF  with  respect  to  velocity  (DPDU)»  SPEED  OF  SOUND 
( C R ) 

argument  XBP  IS  THE  POSITION  OF  THE  GAS/PRDPELLANT  I^IERfACE 
AT  THE  PRESENT  LEVEL  AND  XBBP  IS  THE  LENGTH  OF  THE  PROPELLANT. 

Incremented  which  the  solution  is  being 

ARGUMENT  SGN  IS  SET  EOUAL  TO  1 FOR  A LEFT  HAND  BOUNDARY  AND  -1 
FOP  A RIGHT  hand  BOUNDARY.  ARGUMENT  DRHO  IS  THE  TIME  DERIVATIVE 
OF  THE  PROPELLANT  DENSITY. 

IMPLICIT  REAL-8( A"H fO“Z ) 

REALMS  12,  MOL, MACH 

COMMON  /barb/  RHOdOO),  PIlOO),  E ( 1 00 ) . T(IOO).  UdOO),  ETAdOO) 
COMMON  /BARC/  NOT,  Nl . NF , NP,  INT,  NDIM,  MAXDIM 
COMMON  /BARD/  DXMIN,  DELTAX 

COMMON  /BARE/  GAM,  BV,  MOL,  ECHEM,  RHOP,  Bl{20),  B2(20),  BN(20)# 
I cv.  zrTzoT 

^v.  __  . ...  ...  _ SSTART 


ONS  Of  compatibility  on  ACOUSTIC  CHARACTERISTICS 
OUNDARY  values  of  PRESSURb_(r  ‘ 

(UNP) 


COMMON  /BARF/  XPR,  VPR.  CM,  XB,  VBf  AB# 

COMMON  /BARG/  XBB,DELT6X ,NPRC,NDIM1 ,NDIM2 
COMMON  /BARI/  NWFR , NBRESl ,NBRES2 .NHTW ,NMU2BL ,NBRV 

COMMON  /BArCj2/*^PSt1  SldMAX?^MACH,  APMAX,  XM,  XI2,  NCJ»  IDEAL 


COMMON  /LPRO/  NPRO 
DATA  G /386.1S00/ 

UREL=0.00 

IF(KK.EQ.l)  GO  TO  2 

IF(NPRC.E0.1.AN0.KK.EQ.NDIM2)  GO  TO  2 
UREL=UNF-VB 

2 IF(SGN.LT.O.DO)  GO  TO 
1A  = KK 
1B=KK+1 
GO  TO  10 
^ IA=KK-1 
I B = K K 

10  IF(KK.LE.NOIM)  GO  TO  20  ^ 

C=DSDR(RH0(KK),DRH0,PIKK) ) 

I ?.=  DFl0AT(N0Im1  )+(  - (SGN-1  .D0)/2.D0-DT:M-SGN*C  + UREL)/XBBP) 
❖ /DELTBX 
GO  TO  25 

2 0 C = DSGRTi  GAM=:=P(KK  )=:fG/RHC(KK)  / ( 1 .OO'B  V=>RHO(  KK  ) ) ) 

sgm=scn 

IF(CAP5(DPH0).LE .1 .0-10)  GO  TO  2A 
SGM  = DRH(:i 


f) 


«> 


1) 


c 


IF ( SGM.lt. 0. nO)  G3  TO  22 
IA=IA-1 

GO  TO  2^ 

22  IA=1A+1 

2 A 12=1.00+ (-(SGM-1. DO) /2.DO-DT-*^(-SGN«C+URF.L)/XBP)/OELTAX 
25  IF  (I2.GE.D=L3AT(IA).AND.I2.LE.DFL0AT(IB))  GO  TD  AO 
IF  (MPPO.GT.n)  GO  TO  30 


1 I2=DFL0ATj 

; I A) 

(IB)! 

1 I2=DFL0AT( 

1 IB) 

IF( IDEAL.GT.O.ANO.MACH.LT.l .0-10) 
IF  I IDEAL.GT.0.AND.MACH.GE.O.99D0) 
WRITE  (6,50)  KX  , 12  ,C,LIREL 
30  continue 

IF  I2.LT.DFLl)ATI 
IF  (I2.GT.DFL0AT^ 

AO  DIFFA=I3-I2 
DIFFB=I2-IA 
CR=C 
NB  = NI 

IF  (IMT.EO.O)  NB=NP 
RH01=RH0(KK) 

CALL  3AR2  ( I A , I B ,NB  , XBP  ) 

IJ?  = U(IA  j=:=DI^FA  + y " 


GO  TO  30 
GO  TO  30 


^ , - . . _ .M^DIFFB 

P2  = P(IA)«DIFFt+PllB  )^DIFF3 
RHn?  = RHD  ( lA  )=:=DIFFA+RHO(  IB  )-DIFF3 
PH02  = 0.5D0=:'-(  RHn2+RH01  ) 

BIT=(00RF(KK  )+DIFFA*onRF(  I A ) +0 1 FFE=:=  OORF  ( I B ) ) «DT':=0 . 5 DO 
IF (KK.GT  .MDIM)  GO  TO  A5 
e IT  = -aiT=:MGAN-l  .DO)  / (I  .D0-3V*PH02) 

C =0. 500=:=  (C  + D SORT  (G  AN=:=P2=:=G/RHD2/T  1 .D0-BV*RHD2  ) ) ) 

AA  PNF  =P2-SGN=;=R-)0?=^C=:'-(U2-UNF  )/n+3IT 
OPPU=SGN=:=RHn?=:=C/G 
RETURN  . 


A5  C = O.5D0=:=(C  + DSDR(F:Hn2,DRH0.P2)  ) 

IF(BIT=:=UNF.GT.O.DD)  P1T  = -BIT 
P !T  = -SGN=:=C*B  IT 
IF (NWFR.LE.O)  GO  TO  AA 
BIT=BIT/P(K< ) 

nf’0U  = SGN=:=RHn2=:=C/G/(  1 .DO-BIT) 

IF(OAeS(BIT).LT.l.D-lO)  GO  TO  AS 

IF  (PAPS  (U2)  , LT.  1 .00  .ANn.DAES(UrjF  ) .LT  . 1 .DO)  GO  TO  A7 
A6  PNF  = P2/(  l.nD-3IT)-nPDU-:=(U.?-UNF) 

PE  TURN 

A 7 PNF  = P(K<) 

RETURN 

50  FO'^’MAT  (APH  CHARACTERISTIC  INTERCE-DT  OUT  OF  RANGE.  WARNING. 
1 ) 

Fun 
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FUNCTION  DSDR(X  ,XD, Y) 


COHPUTFS  SNALL  IJUDE  WAyE_SPEED_ IN.SgL JD  PROPE L LANT_ A S 


A function  OF  DENSITY  (X),  RATE=OF-CHANG 
PRESSURE  (Y) 


■0F“DENSITY  (XD),  AND 


IMPLICIT  REALMS ( A-H ,0-Z ) 

COMMON  /BARE/  GAM,  PV,  MOL,  ECHEM,  RHOP,  Pl(20),  B2{20),  BN(20), 
1 CV,  7R(20) 

COMMON  /BARH/  AUP , A OWN , V I SL YR , DEL YR , AMUV { 1 0 ) ,AMU{10),^,  , ^ 

PRX  (10  ) ,BR  ( 10)  ,AIRGAM,  AIRPO,  AIRTO,AIRMW,TWALO, 
3BRF,CnMUZ  , AS3P  ,CD3R,PDIA  ,CHT,(,  DRHQ  (2) 


AUP=:-X/RHQP. 


:XD.LT.C.03)  CO  TO  10 
YN=SNOM( X) 

IF ( Y.LT. YN-1 .D-10)  GO  TO  10 
RETURN 

10  IF (ADWN.GT.DSDR ) OSOR=ADWN 
RETURN 
FND 


04 

ro 


(ino  o r»ooor)o 


CM 

Cm 


SlJBROJTINr.  GETK  (I) 

DERIVATIVES  OF  PROPELLANT  AND  PROJECTILE  MOTION 

GETK,  IS  CALLED  TWICE  PER  UPDATE  CYCLE  WITH  1 = 1 FOR  THE 
STEP  AND  1=2  =QR  THE  CORRECTOR  STEP. 

IMPLICIT  REALM'S  ( A-H  ,0-Z  ) 

REALMS  MOL,  < 

COMMON  /BAR3/  RHO(IOO),  P(IOO),  E(lOO),  T(IOO),  U ( 1 00 ) , 
^COMMON^/BAPP/  GAM,  BV,  MOL,  ECHEM,  RHOP,  Bl(20),  B2(2o! 

COMMON  /BARF/  XPR,  VPR,  CM,  XB,  VB,  AB,  PRM,  ROOT,  SIG, 

COMMON  /BARG/  X P B , P EL T E X , NPPC , NDI M 1 , NDT M2 

COMMON  /BARH2/  PRMB , E L B , A NJ , BMUV { 1 0 ) , B M U ( 1 0 ) , N3RE S 3 

COMMON  /BARHA/  RESAIR,RESnR 

COMMON  /BARJ/  QORF ( 1 00 ) ,PRPRE S 

COMMON  /BERG/  K(4,?) 

data  G /336.16D0/ 

CHECK  FOP  SHOT-START  CONDI  TIPlM 

IF  (SIG.GT.SSTA'^T)  GO  TP  10 
IF(NBRF53.NE .0)  GO  TO  10 
K(  1,1) =0.00 
K {2, 1 ) =0.00 
CO  TO  20 
10  K(1,I)=VPR 

IF (MBRFS3.E5 ,0)  SST ART =0.00 
IF (MPFC. EO. 1 ) GO  TO  12 
SICX=SIG-RES3(XPP,VPR, A ) 

PRTOT  = PRM-»CM 
GO  TO  IT 

1?  Sl&X  = f’(N0lM2  )-RESP(  XPP  , VPR,  A ) ♦PRPRE  S*XBB 
PRTnT=PPM 

IT  IF(SlGX.LT.O.DD.ANn.V=>R.Le.O.DD)  SIGX=O.DO 
K{2, 1 ) =A30.G-;=SIGX/PPTOT/  (1  .00  + A«AB=:=G/PR,TOT  ) 

RFS0R  = PFSnB  + A-K(2,I  ) 

20  K (3, I ) =0.00 

nHOPX=RHnP 

IFINPRC.EO.I  ) RHO^X =RHD( NOIMl ) 

IF  (CM.GT.O.nO)  K(  3 , 1 ) =-RODT^=AP=:=RHnPX 
K(T,I )=VP 
RE TORN 
i^NO 


PREDICTOR 


ETA( 100 ) 
, BN(20), 

SSTART 


mo 


SUrp.nUTI  ME  HTW> 

HEAT  LOSS  T3  TUBE  WALL  FPOM  GAS 


IMPLICIT  REAL*B ( A-H ,n-Z ) 
REAL-e  ^OL 


common  /barb/  RHOdOO),  D(IOO),  E(IOO),  T(IOO),  U(IOB),  ETA(IOO) 
COMMON  /BARC/  MOT,  NI,  NF , MP,  I NT,  NDIM,  MAXOIM 

COMMON  /BARE/  GAM,  PV,  MOL,  ECHEM,  RHOP,  Bl(20),  B2(20),  BN(20), 
1 CV,  ZR(2r)) 

COMMON  /BARG/  X BB , DEL TB X , NPRC , ND I M 1 , NO I M2 

COMMON  /BARH/  AUP , A OWN , V I SL YR , DEL YR , A MUV ( 1 0 ) , AMU ( 1 0 ) , DB , 

R BRX(IC)  ,BR{10) ,AIRGAM,AIRPO,AlRTO,AlRMW,TWALO, 

i--  3BRF,CnMUZ  .ASBK.CDBR.PDI  A,CHTW,DRHO  (2) 

COMMON  /BARH3/  PRNO,VISG 
COMMON  /BARJ/  QORF ( 100  ) ,PRPPES 

BIT=VISGRCV«GAM/PRN0R<=0,600 
DO  10  1=1, NDIM 
^ QORF( I )=0.D0 


IF(T(I ),LT.TWALO)  GO  TO  10 
REY=RHO( I )«U(IT«D3/VISG 


REY=DABS (REY ) 


CORFU  ) = CHTW/DB/D3*(T(  I ) - TWALO ) «RB  Y=!‘R'0, 8D0«B I T 
CONTINUE 


10  CONTINUE 
RETURN 


END 


orirT  o o nrionoooi  lonn 


S'JPROUTINF  Dl)TFLD(KK,XBP,X3F,DT,SGN) 

boundary  values  at  gas  permeable  boundary  venting  to 

ATMOSPHERE. 


argument  kk  points  to  storage  location  for  boundary  data. 

XBP  IS  THE  LENGTH  OF  THE  GAS  COLUMN  AT  THE  PRESENT  UPDATE 
level  AND  XBF  IS  THE  VALUE  AT  THE  FUTURE  UPDATE  LEVEL.  DT 
IS  THE  TINE  STEP  THROUGH  WHICH  THE  SOLUTION  IS  BEING  ADVANCED. 

1 ^ LEFT  HAND  BOUNDARY  AND  -1  AT  A RIGHT 

H A ‘ O r> L/ s i 0 A ^ -Y  # 


IMPLICIT  PEAL=:=3(A-H,0-Z) 
real  ❖a  MOL 


COMMON  /BARA/  GS1(1C0,3),  GS2(100,3),  GS3( 100,3) 

COMMON  /8AR3/  RHD(IOO),  P(ICO),  E(IOO),  T(IOO),  U ( 1 00 ) , ETA(lOO) 
COMMON  /BARC/  NDT,  NI,  NF , NP,  INT,  NDIM,  MAXDIM 
COMMON  /BARD/  DXMlN,  DELTAX 

COMMON  /BARF/  CAM,  PV,  MQL,  ECHEM,  RHQP,  Bl(20),  B2(20),  BN(20), 
1 CV,  ZR(20) 

COMMON  /BARF/  XPR,  VPR , CM,  XB,  VB , AB,  PRM,  ROOT,  SIG,  SSTART 
COMMON  /BARH/  A UP, A OWN , VI SL  YR,DELYR ,AMUV( 10)  , AMul fo ) ,d5, 

- BRX(lO) ,PP(10),AIRGAM, AIRP0,AIRT0,AIRMW,TWAL0, 

* PB  F P 1 C DMU  Z , A SB t?  ,C  08  P , P 0 1 A , CH T W , DRHQ  ( 2 ) 

COMMON  /BARJ/  PORF ( 1 00 ) I PRP RE S 
DATA  R,G  /ia55D.D0,386.1&DO/ 

UNF=U(KK) 

OOPFB  T = Q ORF  ( K <)  -(SAM-  1 . D 0 ) / ( 1 . D 0-E  V =:=RH0  ( KK  ) ) =:=DT 
GALL  CARAC(<<,UNF,PNF ,DPDU,XBP,1.D0  ,DT , SGN , C , 0 . DO ) 

NWAY=0 

IF(nAP?(UNF/C) .LT.l .DO)  GO  TO  50 
SEARCH  FOR  SUPERSONIC  EFFLUX 


SGN?=-SGM 

CALL  CARAC(<<,JNF,PNF2,0^DU2,XB3,l.D0,nT,SSN2,C,SSN) 
5AVr  = uf'F 

UNF=UNF+  (PNF  ?-P^!F)  / (DPDU-DPOUZ  ) 

SAVEP=PfiF 

PMF  = priF  ♦ DPnu=MUfiF- SAVE  ) 

NWAY=1 

50  DIFFp=-SGN--:iUNF<=DT/XPP/DELTAX 
IFIKK.EO.NOIM)  GO  TO  5 A 
DIFFA=  1.  DO-DIFF'^ 

I A = 1 

CD  TO  56 
0IFFA  = 0IFF3 
niFr-B=l  . DO-0IFFf> 


or>r> 


04 

o\ 


I4=NDIH-1 
5f^  I3  = IA*1 

P2=P(  TA)«DIP‘=A+P(!  P )«D!FFP 

RHD?=RH0  ( TA)=^-DIFFA*RH0(  IB  )-DIFFB 

C=0.5D0=MC  + DSSRT  (G*GAM«P2/RH02/(  1 .00-BV*RH02  ) ) ) 

GC2=G/C/C 

60  Rf10N‘F  = RH02+ ( ( pMF-p  2 ) +00R F BT  ) ^=GC 2 

ENF=PNF« ( 1 .nO-EV«RHONF )/ ( GAM- 1 . DO ) /RHONF 
TNF=ENF/CV 

IF(NWAY.EO.O)  GO  TO  100 
IF(MWAY.EQ.2)  GO  TO  HO  ^ 

CBIT  = 0SQRT(G*GAM«pmF/RH3NF/(  l,DD-BV=^RHaN=  ) ) 
IF(0ABS(UNF/C3IT).GE.1.0O)  GO  TO  lOA 
90  NWAY=0 
UNF=SAVE 
PNF=SAVEP 
GO  TO  50 

SEARCH  FOR  SUBSONIC  EFFLUX 

100  ITEP=0 
LSET=0 
LHSET=0 
NWAY=2 

lOA  IF(KK.NE.l)  G3  TO  105 
CDB=CDBR 
AST=ASBR 

GO  TO  no 

105  CDP=CDMUZ 
AST=AB 

OUASI-STEADY  FLOW  RATE 


no 

130 


HO 


150’ 


155 


BIT=1 .D0*UNF*JNF/2. DO/G/ENF/GAM 
MFXT=0 

PS  = PNF^=BIT«=:MGAM/(GAM-1.D0)  ) 
IFINEXT.EO.l  ) GO  TO  HO 
MEXT=1 

PIT=BIT-BV«( PS-PNF ) /ENF/GAM 

GO  TO  130 

TS=TNF>:'BIT 


R I TP  = B Vvp  S/R /T  S ’‘'M3  L 

CR  IT=CDB«AST='<‘^S=:=DSQRT(  G4M«G«M0L/R/TS’:-'{2  .D0/{  GAi*l  .DO)  ) 
( (GAM+1 .DO )/(GAM-l .DO) ) ) ^ ^ 

*(  1 .00-0. 22<tnO’:'B  iTP-t-O.  lOADO^B  ITP*BITP) 
IF(NWAY.E0.?)  GP  to  H5 
CRlT7  = AB=:=RHnNF=;'DABS  (UNF  ) 

IF(CRIT2.LE.  l.OlDO’i'CRIT)  GO  TO  190 

GO  TO  90 

UNFA=UNF 


0 


•i  • /#• 


Uh4FP  = -SGN=!=C9  IT/AB/PHflNF 

IF(DADS(UMF3-JNFA)  .LT.1.D-2=:=0ABS(UN|FA)  ) 50  TO  190 
UNF^UNFd 

iter=itf:r+i 

1F(1TER.GT.50)  GO  TC  200 
IF(UNF  .GT.UNI^A  ) GO  TO  160 
UMFH=UNFA 
LHSFT=1 
GO  TO  170 
160  UNFL=UNFA 
LSFT=1 

170  lF(LSFT-LH5Et.E0.0)  GD  TO  180 
UNF  = O.BDO=;={  UN  = H*UMFL) 

PNF=PNF  + DPr)U'^(UNF-UNFA  ) 

GO  TO  60 

180  DFLP  = OPDU❖(lJ^JF-UMFA  )/?  .DO 
PMF=PNF+DFLP 
UNF=UNFA+DFLP/OPnU 
GO  TO  60 
C 

: VALUES  CONVERSED 

C 

190  U{KK)=UMF 
P(KK )=PNF 
T(KK)=TNF 
F(KK )=ENF 
EIT  = XPF=:=RHONF 
RHOCKK )=RHONF 
GSKKK  ,NF)  = ?,IT 
GS?  (KK  ,NF  ) = P,IT=:=UMF 

G S3.  ( K<  , NF  ) =3  IT*  ( F.NF  +UNF*UNF  /2  . DO/G  ) 

PETUPM 

C ERROR  MESSAGE 

C 

200  WRITE (6.210) 

210  raPMAT(<i2H  EXCESSIVE  NJNBER  OF  ITERATIONS  IN  OUTFLO.) 
CALL  EXIT 
END 


ooof  >0000000000  OOOOC'^t  >0 


Ir) 

00 


SUBROUTINE  ^EFIT  (N'WAY.N) 

rrutinf  to  Perform  allocation  of  mesh,  called  after  each  update 

CYCLE  BY  BAR3  WITH  NWAY  = 1.  ALSO  C ALLE D I NI T I ALLY  BY  BARI  WITH 
NWAY  =0. 

argument  n is  a pointer  to  the  level  at  which  the 

FLOW  PARAMETERS  ARE  BEING  INTERPOLATED. 

REFIT  ESTABLISHES  MESH  IN  ACCORDANCE  WITH  VALUES  OF  INPUT 
QUANTITIES  DXMIN  AND  MAXDIM  WHERE: 

DXMIN  - MINIMUM  VALUE  OF  MESH  INTERVAL  (IN  PHYSICAL  UNITS) 
MAXDIM  - MAXIMUM  NUMBER  OF  MESH  POINTS  DESIRED. 

NDIM  MESH  POINTS  ARE  ESTABLISHED  SUCH  THAT  3 . LE . NO  I M . L E . M AX DI M . 
AS *THE  PROPrLLANT  MOVES,  POINTS  ARE  ADDED  FROM  TIME  TO  TIME  AND 
VALUES  OF  THE  COMPUTATIONAL  VARIABLES  ARE  DEDUCED  BY  A CUBIC 

fp'^THE  In/tI  Al'^VALUE ‘op  XB  IS  LESS  THAN  DXMIN,  TERMINATION 
OCCURS.  IF  XB  IS  GREATER  THAN  DXMIN  BUT  LESS  THAN  2=:=DXMIN, 

A WARNING  IS  PRINTED  3UT  EXECUTION  CONTINUES. 

IMPLICIT  REALv3(A-H,0-Z) 

REALMS  MOL 

c'Sra  echem.  rhop,  bu?o).  beceoi.  bn(30.. 

^COMMliN^/BARP/  XPR,  VPR,  CM,  XB,  VB,  AB,  PRM,  ROOT,  SIG,  SSTART 
COMMON  /BARG/  X BE J DEL T BX , NPRC , ND I M 1 , ND I M2 
COMMON  /BARJ/  OORP  ( 1 00  ) , PRPRE  S c-o. 

DIMENSION  X(103,3,3),  Y ( 1 00  ) . S P ( 1 00 ) , SPLCIOO) 

EQUIVALENCE  ( X ( I ,1  , 1 ) » GS 1 ( 1 , 1 ) ) 

N0IMA=MDIM 

NDIM1A=NDIM1 

NDIM2A=NDIM2 

K = Xe/DXMIN-*-O.SDO 

K=K  + 1 

K1=0 

IF(NPRC.EQ.O)  GO  TO  5 
IF(CM.GT .1.0-10)  GO  TO  A 

nprc=o 
f-n  TO  5 

t Kl=XRB/DXf1lN  + O.BrO 
K 1 - K 1 ■**  1 

i IF  (NWAY .FO . 1 ) GO  TO  30 
SP(1)=1.D0 


oa 


DO  lb  I=2»MAXDIM 
10  SP(I)=1.DO-0.0625DO/SP(I-1) 

IF  (K.GE.3)  GO  TO  30 
IF  (K.E0*2)  GO  TO  20 
WRITE  (6,120) 

CALL  EXIT 
20  WRITE  (6,130) 

30  K=MAX0(K,3) 

IF(NPRC.EO.O)  GO  TO  3A 
TF(K1.GE.3)  GO  TO  30 

PROPELLING  CHARGE  TOO  SHORT  TO  BE  TREATED  AS  CDHTIMUUH. 

default  TO  lumped  parameter. 

MPFC  = C' 

RH0P=CM/AR/XP,3 

PRPRE5=Qr)RF(NDlMl) 

3A  NDlM=MIHO(<,MAXniM) 

GO  TO  33 

30  IF(K.  + <1.GT.V|AXDIM)  GO  TO  37 

36  MOIM=K 
NnrMl=K.+  l 
MDlM2  = t'  + Kl 

DELTBX=1 .n0/( DFLOAT (K1  )-l  .DO) 

GD  TO  33 

37  PI T=DFLQAT(MAXDIM) /DFLOAT (K+Kl) 

K = OFLQAT  (K  )=:=3T  T 

K=MAXO(K ,3) 

K1=MAXDIM-K 
IF(K1.GE.3)  GO  TO  36 
Kl  = 3 

K=MAXniM-3 
GO  TO  36 

3 3 PF.LTAX  = 1 .no  / ( DFLOAT  (NDIM)  -1  .DO) 

IF  (NWAY.EQ.O)  RETURN 

IF  (NDIM .EQ.NDIMA. AND. NPRC.EQ.O)  RETURN 

IF (NOlM. EQ.NDIMA . AND.NDIH2.E0.NP IM2 A. AND.  NPRC .EO . 1 ) RETURN 
DO  no  MM  = 1,3 
1L  = 2 

t3=M0IMA 

ILA=1 

1RA=ND1M 

MMM=NDIM 

30  BIT=  1 .OO/D'^LOA  T(  IR- ( IL- I ) ) 

3.ITA,  = 1 .OO/DFLOAT  (IPA-ILA  ) 
riTD=l .5DO/3IT/3IT 
ip?"=n-i 

U 1=IL  - 

ISHFT=lL-2 

IF  ( IL.GT.IR-^)  GO  TO  60 


140 


40 


SPL(1)=0.D0 
DO  40  J=IL,IRVI 

SPLB=BITD--:--(X  ( J + 1 + X{  J-1  .N  . MM  ) -?  . DO'^'X  ( J , N . MM  ) ) 

IF  (J.GT.IL)  SPLR=SPLB-0.25DO*SPL( J-1-ISHFT)/SP( J-2-ISHFT) 
SPL( J-ISHFT) =SPLP 
SPLilP-I SHFT) =O.DD 
K5HFT=IRM+IL-ISHFT 


KSHf  . _ 

DQ  50  J=IL,IPM 
JSHFT=KSHFT-J 

50  SPL(  JSHFI)  = ( ( JSHFT)-0.25D0=:=SPL(  JSHFT+1  ) ) / SP  ( J SHF T- 1 ) 

60  DQ  90  I=ILA.fRA 

ZA=BITA«DFL0AT( I-ILAJ 
DO  70  J=IL1,I? 

Z=BIT*DFL0AT(J-(IL-1)) 

IF  (Z.GE.ZA)  SO  TO  80 
70  CONTINUE 
J=IR 

80  JJ=J-1 
IL1  = J 

C1=(2-ZA )/BIT 

C2=(ZA+BIT-Z)/BIT 

Y(  I )=C1*X( +C2*X( J.N.MM) 

Y? I jivlS )-Cl3j2/6»00«5IT«BIT«( ( 1 . D0  + C2 ) ❖SPL ( JJ- 1 SHFT)  ♦ 

«( l.DO+Cl )«S3L( J-ISHFT) ) 

90  CONTINUE 

IF(NPRC.EO.O)  GO  TO  95 

IF(MMM.GT.NOIM)  GO  TO  95 

IL=NDIM1 A*1 

IR=NDIM2A 

ILA=NniM 1 

IRA=NDIM2 

MMM=NDIM2 

GO  TO  39 

95  DO  100  M=1,MMM 
100  X(M,N,MM)=Y(M) 
no  CONTINUE 
RETURN 

120  FQPMAT  (44H  ILLEGAL  VALUES  OF  XB  AND  DXMIN.  TERMINATING)^ 
130  format  (45H  marginal  VALUES  OF  XB  AND  DXMIN.  CONTINUING.) 
END 


noo  ooo  o c^(  >000 


FUMCTION  RFSP(X,V,A) 


RESISTIVE  pressure  ACTING  GN  PROJECTILE  AS  A FUNCTION  OF 
TRAVEL  (X),  VELOCITY  (V).  ARGUMENT  A IS  RETURNED  IN  CASES 
when  resistance  is  proportional  to  projectile  ACCELERATION. 


IMPLICIT  REAL«R( A-H ,n-Z ) 
PEAL«8  MOL 


iCOMMON^/^AR^/  gam,  BV,  mol,  ECHEM,  RHOP,  B1(20),  B2(20),  BN(20), 

COMMON  /BARH/  A UP , A OWN , V I Sl YR . D EL YR , A MU V ( 1 0 ) , A M J ( 1 3 ) , D B , 

* BRX(IO)  ,PR(10)  ,AlRGAM,AIRPO,AIRTO,AIRMW,TWALO, 

* PPPF,CnMUZ, ASBR,CDBR,PniA,CHTW,DRHO(2) 

COMMON  /BARH2/  PRMP  , EL B , A NU , BMU V ( 1 0 ) , R MU ( 1 0 ) , N3 RE  S3 
COMMON  /PARHA/  RESAIR.RESDB 

COMMON  /BARF/  XPP,  VPR,  CM,  XP,  VB,  AR,  ?RM,  ROOT,  SIG,  SSTART 
COMMON  /BARI/  N WF R , NE R E S 1 , NBRE S 2 . NH TW , NMUZ BL , N8R V 
DATA  G/386.16D3/,R/18550.n0/ 


RESP=O.DO 

A=O.DO 

IF  (NRRFSl  .EO.O)  GO  TO  ctQ 


RESISTANCE  DUE  TO  F FICTION  ON  OBTURATOR  GIVEN  IN  TABULAR  FORM 

IF(X.GT.BPX(  1)  ) GO  TO  10 
RESP=0R(1) 

GO  TO  AO 

10  no  20  I=2,NBRES1 

IF(FRX(  I ) .GF  ,X)  GO  30 
20  CONTINUE 

RESP  = BR(MBRE SI  ) 

GO  TO  AO 

30  PIT=fBRX ( I )-X)/ ( BRX ( I )-BRX(  I-l  ) ) 

P.FSP=BR(  I -1 ) *3IT  +3P  ( I )❖(  1 .DO-ai  T ) 

AO  PESOB=PESP 

IF(NBRES2.FD.D)  GO  TO  60 

RESISTANCE  DUE  TO  SHOCK  AHEAD  OF  PROJECTILE 

SO  BIT=( AIFGAM“l,no)/( AlRGAM+1  .DO) 

B I TC=  0 Sort  ( G--r=A  l pga  jc  to/a  I fm  w ) 

B ITL=1 .DO-BI T 

BITU=  ( V + DSORT(  V-:=V+ A .OOR-BI  Tl*BI  TL*B  I TC=:=B  ITC  ) ) 

❖ /(?.nO-:=3lTL=.'=^ITC) 

FESAI  c>  = AIpc'D=X(  ( 1 .DO +BI  T )-:=B.ITU*F  I TU-BI  T) 
pFSP=Rr sp+FESeiP 
A(  IF<MBRFS3.E0. 3)  RET'^Fm 


resistancf:  due  to  friction  on  OBTURATOC-  as  DFTERMINED 
BY  SETBACK  PRESSURE  AND  TABULAR  COEFFICIENT  OF  FRICTION 


IFIV.GT.BMUVd)  ) 
PITMU  = BMU(1  ) 

GO  TO  100 

70  DO  80  I=2,MRRES3 
IF(BMUV( I ).SE. V) 


GO  TO  70 

GO  TO  90 


BO  CONTINUE 

BITMU  = PMU(NBRES3  ) 

GO  TO  100 

90  BIT=(3MUV(I )-V)/(3MUV( I ) -BMUV( I -1 ) ) 

BITMU=BMU( I-l )«BIT+DMU( I )*( 1 .DO-B IT ) 

100  RES0B=BITMU/BMU( 1)*SSTART 
RESP=RESP+RE50B 

DENnM=  ( 1 .00- ANU  ) /A N U^A  B-B  I TmU=:=E  LB«1 . 5 70796-DB 
IFIDENDM .LT. l.D-10)  DEN0N=1 .0-10 
A=<>.D0-B1  THU«ELB/DB«PRMB/G/DEN0M 


RETURN 

END 


I Jl  JOO 


FUNCTinsJ  RNnM(X) 

NOMINAL  DENSITY  CJRVE  FOR  PROPELLANT  AS  A FUNCTION  OF 
PRESSURE  (X). 


IMPLICIT  REAL=!'B  ( A-H  ,Q-Z  ) 

COMMON  /BARE/  GAM,  EV , MOL,  ECHEM,  RHO^,  B1(20),  32(20),  BN(20), 

^ COMMON^/ B ARM/  AUP , A DWN , V I SL YR , DEL YR , AMUV ( 10) ,AMU( 10  ), 

BRXdO)  ,BR(  10),AIRGAM,  AIRP0,AIRT0,AIRMW,TWAL0, 
noor-  rnAiW  ac6d  rnnc?  6 n T a . ru  T u . HPHn  f ? ^ 


data  &/3B6.16DO/ 

RN0M  = RHnP=:=(  3 .D0’:=G--:=X/AIIP/A'JP/RH0P+1.  DO)  1 ,D0/3.D0) 

RETURN 

END 


SURRCIJTINP  SISCHK 


CHECKS  THAT  P^ESSJ^E  IM  SOLID  PROPELLANT  DOES  NOT  LIE 
ABOVE  NOMINAL  LOADING  CURVE. 


IMPLICIT  REALv9(A-H,0-Z)  . . 

COMMON  /BAPA/  GS1(100,3),  GS2(10C,3) 
COMMON  /BARC/  NOT,  Nl t NF , NP,  I NT , 
COMMON  /BARG/  X RB , D E LT BX , NPRC , ND I Ml , 


, GS3(100,3) 
NDIM,  MAXDIM 
NDIM2 


DO  10  I=NDIM1 ,NDIM2 
X=SN0M(GS1{I ,NF) ) 

IF (GS3{I ,NF) .GT.X)  GS3{I,NF)=X 

CONTINUE 

RETURN 

END 


oof  in 


FUNCTIDNJ  SNOM(X) 

NOMINAL  STRESS  CURVE  FOR  PROPELLANT  AS  A FUNCTION  OF  DENSITY 
(X). 

IMPLICIT  REALM'S  ( A-H  ,D-Z) 

REAL=:-R  MOL 

COMMON  /BARE/  GAM,  BV,  MOL,  ECHEM,  RHQP,  Bl(20),  32(20),  BN(20), 
1 CV,  ZR(20) 

COMMON  /BARH/  A A OWN  , V I SL  Y R , DEL  YR  , AMUV  (1 0 ) , AMU  ( 1 0 ) , 

❖ . BPX(IO)  ,BR(10) ,AIRGAM, AIRPO,AIRTO,A IRMW,TWALO, 

RBRF,CDMUZ,  ASBP,CDBR,'»DIA,CHTN  ,DRHO  (2) 

C 

DATA  G/3B6.1(SD0/ 

C 

SNnM=AUP="AUP«RHnP/3.D0/G*  ( ( X/RHOP  ) .00) 

RETURN 

END 


SUBROUTINE  VELCHK 


CHECKS  THAT  VELOCITY  HAS  NOT  BEEN  REVERSED  AS  A 
CONSEQUENCE  OF  FPTCTIDN 


IMPLICIT  REAL*8(A-H  ,0-Z) 


COMMON  /BARA/  3S1(100,3),  GS2(n0f3),  GS3(100,3) 
COMMON  /BARC/  NOT,  Nit  NF t NP,  INT.  NDIM.  MAXDIM 
COMMON  /BARG/  X E B , DELT 6 X - NPRC . NO  I Ml , ND I 
COMMON  /BARJ/  QOPM 100 ) .PRPRES 


NB  = NI 

IF(INT.EQ.O)  NB=N3 
DO  10  I=NDIM1 ,NDIM2 

IF(DABS(GS2( I ,NB)) .LT.l .D-10)  GO  TO  10 

IF  (GS2  (I  ,NF)  =:=OORF(  I I.GT.C.DO)  GS  2 ( I , NF  ) = 0 . DO 

CONTINUE 

RETURN 

END 


ooo  nnn  r>  o doo 
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SUP.ROUTINE  WF? 

FRICTION  BETWEEN  SOLID  PROPELL/iNT  AND  TUBE  WALL 


IMPLICIT  REAL«B(A-H,0-?) 

real«b  mol 


COMMON  /BAR3/  RHOdCO),  P(IOO),  F(IOO),  T(lOO),  U(lOO),  ETA(IOO) 
^COMMON^/BARE/  CAM,  BV»  MOL,  ECHEM,  RHOP,  Bl(20),  B2{20),  BN(20), 

COMMON  /BARG/.  X BP  , DELT  BX  , NPRC  , ND  1 Ml  , ND I M2 
COMMON  / P AR  H /_  A UP  j A pWN , V I S L YR , 0 E L Y R , A MU V { 1 0 ) , AMU { 1 a ) , DB , 


P.  I’r'  ,WUriN  ,vi  :>LIKtU-LTr,Anuv 

BRX(IO) ,BR(101 .AIRGAM, AIRPO..  . 

PB^F.CDMUZ . ASBR,CDER,P0IA,CHTW,DRH 
COMMON  /BARI/  NWFR.NRRESl  ,NPRE52  ,NHTW,NMUZB.L,NB 
COMMON  /BARJ/  0 nR= ( 1 00 ) , PRPR E S 


, AIRTO,AIRMW,TWALO, 
gu. 


IFCNWFR.GT.O)  GO  TO  20 

FRICTION  DUE  TO  GAS  FILM  LAYER 

DO  10  I=NniMl ,NDIM2 
ODRFd  ) = -'=>. DO/DB'I'VI  SLYR/DELYR=;-U(  I ) 
10  CONTINUE 
RETURN 


FRICTION  DUE  TO  NORMAL  STRESS 


20 


22 

2<^ 
2 6 

30 

AO 

BO 

t r- 
\ ' 


DO  70  I=NDIM1 ,NniM2 
QORFI I )=0.n0 

IF (Pd I.LF.O.OD)  CO  TO  70 
IF  d.EO.NDlMl)  GO  TO  22 
IF  (I  .EQ.NDIM2 ) GO  TO  ?A 

PA  TI  = 0.25no=d  I-l  ) + P{  !♦!  )♦2.D0^^-P(I  ) ) 
GO  TO  26 

PATI=0.5DO'dP(  I )+P(  I + l)  ) 

GO  TO  26 

PATI=0.5D0:d3(  I )+3  ( I-l  ) ) ^ 

BITU=Ud) 

IF(RITU.GT.AMUVd)  ) GO  TO  30 
BITMU=AMUd  ) 

GO  TO  60 
DO  AO  J=2.NWFR 

IF(AMUV{  JI.GE.BIT'J)  GO  TO  BO 
CONTINUE 
P I TMU=AMU(NWF’ ) 
on  TO  60 

PIT  = (AMUV ( J) -3ITU)/ ( AYjy( J)-AMUY{ J-  1)  ) 
PI  THU  = AviU(  J-1  )=:=PIT  + AMU(  J)-{  1 .DO-EIT  ) 
on?^r-(  I ) = -A.no/nE<«p  ITMiJ=:=r'ATI 


IF(nA8  S(BrTU).GT.l .P-1  0)  QORF ( I ) =00 PF ( I )«B ITU/DABS ( BI TU) 
70  CONTINUE 
RETURN 
FNP 
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project,  or  other  area  of  interest  for  which  report  will  be  used.) 


3.  How,  specifically,  is  the  report  being  used?  (Information 
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make  this  report  and  future  reports  of  this  type  more  responsive 
to  your  needs,  more  usable,  improve  readability,  etc.) 
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please  fill  in  the  following  information. 
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